/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / procs.tcl

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 70 72 6f 63 73 2e | 74 63 6c 00 00 00 00 00 |..procs.|tcl.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 40 6e 00 | 00 05 4e aa a4 c6 27 aa |.....@n.|..N...'.|
|00000060| a4 c6 27 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..'.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7f a3 00 00 |........|........|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000000d0| 70 72 6f 63 20 6e 6f 72 | 6d 61 6c 4c 65 66 74 42 |proc nor|malLeftB|
|000000e0| 72 61 63 6b 65 74 20 7b | 7d 20 7b 0d 09 69 6e 73 |racket {|} {..ins|
|000000f0| 65 72 74 54 65 78 74 20 | 22 5c 7b 22 0d 7d 0d 70 |ertText |"\{".}.p|
|00000100| 72 6f 63 20 6e 6f 72 6d | 61 6c 52 69 67 68 74 42 |roc norm|alRightB|
|00000110| 72 61 63 6b 65 74 20 7b | 7d 20 7b 0d 09 69 6e 73 |racket {|} {..ins|
|00000120| 65 72 74 54 65 78 74 20 | 22 5c 7d 22 0d 7d 0d 62 |ertText |"\}".}.b|
|00000130| 69 6e 64 20 27 5c 5b 27 | 20 3c 7a 73 3e 20 20 6e |ind '\['| <zs>  n|
|00000140| 6f 72 6d 61 6c 4c 65 66 | 74 42 72 61 63 6b 65 74 |ormalLef|tBracket|
|00000150| 0d 62 69 6e 64 20 27 5c | 5d 27 20 3c 7a 73 3e 20 |.bind '\|]' <zs> |
|00000160| 20 6e 6f 72 6d 61 6c 52 | 69 67 68 74 42 72 61 63 | normalR|ightBrac|
|00000170| 6b 65 74 0d 09 09 09 0d | 23 20 53 65 6c 65 63 74 |ket.....|# Select|
|00000180| 20 74 68 65 20 6e 65 78 | 74 20 6f 72 20 63 75 72 | the nex|t or cur|
|00000190| 72 65 6e 74 20 77 6f 72 | 64 2e 20 49 66 20 77 6f |rent wor|d. If wo|
|000001a0| 72 64 20 61 6c 72 65 61 | 64 79 20 73 65 6c 65 63 |rd alrea|dy selec|
|000001b0| 74 65 64 2c 20 77 69 6c | 6c 20 67 6f 20 74 6f 20 |ted, wil|l go to |
|000001c0| 6e 65 78 74 2e 0d 70 72 | 6f 63 20 68 69 6c 69 74 |next..pr|oc hilit|
|000001d0| 65 57 6f 72 64 20 7b 7d | 20 7b 0d 09 69 66 20 7b |eWord {}| {..if {|
|000001e0| 5b 67 65 74 50 6f 73 5d | 21 3d 5b 73 65 6c 45 6e |[getPos]|!=[selEn|
|000001f0| 64 5d 7d 09 66 6f 72 77 | 61 72 64 43 68 61 72 0d |d]}.forw|ardChar.|
|00000200| 09 66 6f 72 77 61 72 64 | 57 6f 72 64 0d 09 73 65 |.forward|Word..se|
|00000210| 74 20 73 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d |t start |[getPos]|
|00000220| 0d 09 62 61 63 6b 77 61 | 72 64 57 6f 72 64 0d 09 |..backwa|rdWord..|
|00000230| 73 65 6c 65 63 74 20 24 | 73 74 61 72 74 20 5b 67 |select $|start [g|
|00000240| 65 74 50 6f 73 5d 0d 7d | 0d 0d 62 69 6e 64 20 27 |etPos].}|..bind '|
|00000250| 68 27 20 3c 7a 3e 20 68 | 69 6c 69 74 65 57 6f 72 |h' <z> h|iliteWor|
|00000260| 64 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |d..#====|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 0d 23 20 4d | 6f 64 65 20 76 61 72 69 |====.# M|ode vari|
|000002c0| 61 62 6c 65 73 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ables.#=|========|
|000002d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 46 6f 72 20 6d 61 |=======.|# For ma|
|00000320| 72 6b 20 73 74 61 63 6b | 2e 0d 73 65 74 20 6d 61 |rk stack|..set ma|
|00000330| 72 6b 4e 61 6d 65 20 30 | 0d 73 65 74 20 6d 61 72 |rkName 0|.set mar|
|00000340| 6b 53 74 61 63 6b 20 22 | 22 0d 0d 23 20 6d 61 70 |kStack "|"..# map|
|00000350| 70 69 6e 67 20 6f 66 20 | 77 69 6e 64 6f 77 73 20 |ping of |windows |
|00000360| 74 6f 20 63 75 72 72 65 | 6e 74 20 6d 6f 64 65 73 |to curre|nt modes|
|00000370| 2e 0d 73 65 74 20 77 69 | 6e 4d 6f 64 65 73 28 22 |..set wi|nModes("|
|00000380| 22 29 20 22 22 0d 0d 23 | 20 6d 61 6b 69 6e 67 20 |") ""..#| making |
|00000390| 76 61 72 73 20 6c 6f 63 | 61 6c 20 74 6f 20 77 69 |vars loc|al to wi|
|000003a0| 6e 64 6f 77 73 0d 23 20 | 27 69 6e 63 6f 6d 69 6e |ndows.# |'incomin|
|000003b0| 67 56 61 72 73 27 20 75 | 73 65 64 20 74 6f 20 68 |gVars' u|sed to h|
|000003c0| 6f 6c 64 20 6f 6c 64 20 | 76 61 72 20 76 61 6c 75 |old old |var valu|
|000003d0| 65 73 20 74 68 61 74 20 | 68 61 76 65 20 62 65 65 |es that |have bee|
|000003e0| 6e 20 6f 76 65 72 77 72 | 69 74 74 65 6e 20 69 6e |n overwr|itten in|
|000003f0| 20 63 75 72 72 65 6e 74 | 20 77 69 6e 64 6f 77 0d | current| window.|
|00000400| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000450| 3d 3d 0d 23 20 48 61 6e | 64 6c 65 20 27 66 6c 61 |==.# Han|dle 'fla|
|00000460| 67 27 20 61 6e 64 20 27 | 76 61 72 27 20 6d 65 6e |g' and '|var' men|
|00000470| 75 20 73 65 6c 65 63 74 | 69 6f 6e 73 2e 0d 23 3d |u select|ions..#=|
|00000480| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000490| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000004d0| 70 72 6f 63 20 65 64 69 | 74 46 6c 61 67 20 7b 6d |proc edi|tFlag {m|
|000004e0| 65 6e 75 20 69 74 65 6d | 7d 20 7b 0d 09 67 6c 6f |enu item|} {..glo|
|000004f0| 62 61 6c 20 24 69 74 65 | 6d 20 69 6e 63 6f 6d 69 |bal $ite|m incomi|
|00000500| 6e 67 56 61 72 73 20 6c | 6f 63 61 6c 56 61 72 73 |ngVars l|ocalVars|
|00000510| 20 6d 6f 64 69 66 69 65 | 64 56 61 72 73 0d 0d 09 | modifie|dVars...|
|00000520| 6c 61 70 70 65 6e 64 20 | 6d 6f 64 69 66 69 65 64 |lappend |modified|
|00000530| 56 61 72 73 20 24 69 74 | 65 6d 0d 09 73 65 74 20 |Vars $it|em..set |
|00000540| 76 61 6c 20 5b 65 78 70 | 72 20 28 5b 73 65 74 20 |val [exp|r ([set |
|00000550| 24 69 74 65 6d 5d 2d 31 | 29 2a 2d 31 5d 0d 09 6d |$item]-1|)*-1]..m|
|00000560| 61 72 6b 4d 65 6e 75 49 | 74 65 6d 20 24 6d 65 6e |arkMenuI|tem $men|
|00000570| 75 20 24 69 74 65 6d 20 | 5b 65 78 70 72 20 28 24 |u $item |[expr ($|
|00000580| 76 61 6c 29 3f 22 6f 6e | 22 3a 22 6f 66 66 22 5d |val)?"on|":"off"]|
|00000590| 0d 09 73 65 74 20 24 69 | 74 65 6d 20 24 76 61 6c |..set $i|tem $val|
|000005a0| 0d 0d 7d 0d 0d 70 72 6f | 63 20 65 64 69 74 56 61 |..}..pro|c editVa|
|000005b0| 72 20 7b 6d 65 6e 75 20 | 69 74 65 6d 7d 20 7b 0d |r {menu |item} {.|
|000005c0| 09 67 6c 6f 62 61 6c 20 | 24 69 74 65 6d 20 69 6e |.global |$item in|
|000005d0| 63 6f 6d 69 6e 67 56 61 | 72 73 20 6c 6f 63 61 6c |comingVa|rs local|
|000005e0| 56 61 72 73 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |Vars mod|ifiedVar|
|000005f0| 73 0d 0d 09 6c 61 70 70 | 65 6e 64 20 6d 6f 64 69 |s...lapp|end modi|
|00000600| 66 69 65 64 56 61 72 73 | 20 24 69 74 65 6d 0d 09 |fiedVars| $item..|
|00000610| 61 70 70 65 6e 64 20 70 | 72 6d 70 74 20 22 4e 65 |append p|rmpt "Ne|
|00000620| 77 20 56 61 6c 75 65 20 | 6f 66 20 22 20 24 69 74 |w Value |of " $it|
|00000630| 65 6d 20 22 3a 20 22 0d | 09 69 66 20 21 5b 63 61 |em ": ".|.if ![ca|
|00000640| 74 63 68 20 7b 70 72 6f | 6d 70 74 20 24 70 72 6d |tch {pro|mpt $prm|
|00000650| 70 74 20 5b 73 65 74 20 | 24 69 74 65 6d 5d 7d 20 |pt [set |$item]} |
|00000660| 72 65 73 5d 20 7b 0d 09 | 09 73 65 74 20 24 69 74 |res] {..|.set $it|
|00000670| 65 6d 20 24 72 65 73 0d | 09 7d 0d 7d 0d 0d 0d 0d |em $res.|.}.}....|
|00000680| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000690| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006d0| 3d 3d 0d 0d 23 20 49 6e | 73 74 61 6e 74 69 61 74 |==..# In|stantiat|
|000006e0| 65 20 61 20 67 6c 6f 62 | 61 6c 20 76 61 72 69 61 |e a glob|al varia|
|000006f0| 62 6c 65 20 74 6f 20 74 | 68 65 20 70 61 74 68 20 |ble to t|he path |
|00000700| 6f 66 20 61 20 66 69 6c | 65 20 28 75 73 75 61 6c |of a fil|e (usual|
|00000710| 6c 79 20 61 6e 20 61 70 | 70 29 2e 20 41 73 20 61 |ly an ap|p). As a|
|00000720| 0d 23 20 73 69 64 65 2d | 65 66 66 65 63 74 2c 20 |.# side-|effect, |
|00000730| 6d 61 6b 65 20 74 68 65 | 20 69 6e 73 74 61 6e 74 |make the| instant|
|00000740| 69 61 74 69 6f 6e 20 70 | 65 72 6d 61 6e 65 6e 74 |iation p|ermanent|
|00000750| 20 62 79 20 61 64 64 69 | 6e 67 20 61 20 6c 69 6e | by addi|ng a lin|
|00000760| 65 20 74 6f 20 27 64 65 | 66 69 6e 69 74 69 6f 6e |e to 'de|finition|
|00000770| 73 2e 74 63 6c 27 2e 0d | 70 72 6f 63 20 61 64 64 |s.tcl'..|proc add|
|00000780| 41 70 70 50 61 74 68 20 | 7b 6e 61 6d 65 20 76 61 |AppPath |{name va|
|00000790| 72 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 24 76 61 |r} {..gl|obal $va|
|000007a0| 72 0d 09 0d 09 69 66 20 | 7b 5b 63 61 74 63 68 20 |r....if |{[catch |
|000007b0| 7b 67 65 74 66 69 6c 65 | 20 22 46 69 6e 64 20 27 |{getfile| "Find '|
|000007c0| 24 6e 61 6d 65 27 20 61 | 70 70 3a 22 7d 20 70 61 |$name' a|pp:"} pa|
|000007d0| 74 68 5d 7d 20 7b 72 65 | 74 75 72 6e 20 31 7d 0d |th]} {re|turn 1}.|
|000007e0| 09 73 65 74 20 24 76 61 | 72 20 24 70 61 74 68 0d |.set $va|r $path.|
|000007f0| 0d 09 61 64 64 55 73 65 | 72 4c 69 6e 65 20 22 73 |..addUse|rLine "s|
|00000800| 65 74 20 24 76 61 72 20 | 5c 22 5b 71 75 6f 74 65 |et $var |\"[quote|
|00000810| 45 78 70 72 32 20 24 70 | 61 74 68 5d 5c 22 22 0d |Expr2 $p|ath]\"".|
|00000820| 09 72 65 74 75 72 6e 20 | 30 0d 7d 0d 0d 70 72 6f |.return |0.}..pro|
|00000830| 63 20 61 64 64 55 73 65 | 72 4c 69 6e 65 20 7b 6c |c addUse|rLine {l|
|00000840| 69 6e 65 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 48 |ine} {..|global H|
|00000850| 4f 4d 45 0d 0d 09 69 66 | 20 7b 5b 66 69 6c 65 20 |OME...if| {[file |
|00000860| 65 78 69 73 74 73 20 22 | 24 48 4f 4d 45 3a 75 73 |exists "|$HOME:us|
|00000870| 65 72 53 74 61 72 74 75 | 70 2e 74 63 6c 22 5d 7d |erStartu|p.tcl"]}|
|00000880| 20 7b 0d 09 09 73 65 74 | 20 66 69 64 20 5b 6f 70 | {...set| fid [op|
|00000890| 65 6e 20 22 24 48 4f 4d | 45 3a 75 73 65 72 53 74 |en "$HOM|E:userSt|
|000008a0| 61 72 74 75 70 2e 74 63 | 6c 22 20 22 61 22 5d 0d |artup.tc|l" "a"].|
|000008b0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 20 |.} else |{...set |
|000008c0| 66 69 64 20 5b 6f 70 65 | 6e 20 22 24 48 4f 4d 45 |fid [ope|n "$HOME|
|000008d0| 3a 75 73 65 72 53 74 61 | 72 74 75 70 2e 74 63 6c |:userSta|rtup.tcl|
|000008e0| 22 20 22 77 22 5d 0d 09 | 7d 0d 09 70 75 74 73 20 |" "w"]..|}..puts |
|000008f0| 24 66 69 64 20 24 6c 69 | 6e 65 0d 09 63 6c 6f 73 |$fid $li|ne..clos|
|00000900| 65 20 24 66 69 64 0d 7d | 0d 0d 0d 70 72 6f 63 20 |e $fid.}|...proc |
|00000910| 61 64 64 41 6c 70 68 61 | 62 69 74 73 4c 69 6e 65 |addAlpha|bitsLine|
|00000920| 20 7b 6c 69 6e 65 7d 20 | 7b 0d 09 67 6c 6f 62 61 | {line} |{..globa|
|00000930| 6c 20 48 4f 4d 45 0d 0d | 09 73 65 74 20 66 69 64 |l HOME..|.set fid|
|00000940| 20 5b 6f 70 65 6e 20 22 | 24 48 4f 4d 45 3a 54 63 | [open "|$HOME:Tc|
|00000950| 6c 3a 53 79 73 74 65 6d | 43 6f 64 65 3a 41 6c 70 |l:System|Code:Alp|
|00000960| 68 61 42 69 74 73 2e 74 | 63 6c 22 20 22 61 22 5d |haBits.t|cl" "a"]|
|00000970| 0d 09 70 75 74 73 20 24 | 66 69 64 20 24 6c 69 6e |..puts $|fid $lin|
|00000980| 65 0d 09 63 6c 6f 73 65 | 20 24 66 69 64 0d 7d 0d |e..close| $fid.}.|
|00000990| 0d 0d 70 72 6f 63 20 67 | 65 74 46 69 6c 65 53 69 |..proc g|etFileSi|
|000009a0| 67 20 7b 66 7d 20 7b 0d | 09 63 61 74 63 68 20 7b |g {f} {.|.catch {|
|000009b0| 6c 69 6e 64 65 78 20 5b | 6c 73 20 2d 6c 20 24 66 |lindex [|ls -l $f|
|000009c0| 5d 20 36 7d 20 76 61 72 | 0d 09 72 65 74 75 72 6e |] 6} var|..return|
|000009d0| 20 24 76 61 72 0d 7d 0d | 0d 0d 23 20 4c 6f 6f 6b | $var.}.|..# Look|
|000009e0| 20 66 6f 72 20 67 69 76 | 65 6e 20 61 70 70 20 73 | for giv|en app s|
|000009f0| 69 67 20 69 6e 20 61 63 | 74 69 76 65 20 70 72 6f |ig in ac|tive pro|
|00000a00| 63 65 73 73 65 73 2e 20 | 49 66 20 6e 6f 74 20 74 |cesses. |If not t|
|00000a10| 68 65 72 65 2c 20 74 72 | 79 20 74 6f 20 0d 23 20 |here, tr|y to .# |
|00000a20| 6c 61 75 6e 63 68 20 77 | 69 74 68 20 27 70 61 74 |launch w|ith 'pat|
|00000a30| 68 27 20 70 72 6f 6d 70 | 74 69 6e 67 20 66 6f 72 |h' promp|ting for|
|00000a40| 20 27 70 61 74 68 27 20 | 69 66 20 6e 65 63 65 73 | 'path' |if neces|
|00000a50| 73 61 72 79 2e 0d 23 20 | 52 65 74 75 72 6e 20 74 |sary..# |Return t|
|00000a60| 68 65 20 72 65 61 6c 20 | 6e 61 6d 65 20 6f 66 20 |he real |name of |
|00000a70| 74 68 65 20 61 70 70 2e | 20 44 6f 6e 27 74 20 73 |the app.| Don't s|
|00000a80| 77 69 74 63 68 2e 0d 70 | 72 6f 63 20 63 68 65 63 |witch..p|roc chec|
|00000a90| 6b 52 75 6e 6e 69 6e 67 | 20 7b 6e 61 6d 65 20 73 |kRunning| {name s|
|00000aa0| 69 67 20 70 61 74 68 7d | 20 7b 0d 09 67 6c 6f 62 |ig path}| {..glob|
|00000ab0| 61 6c 20 24 70 61 74 68 | 0d 09 66 6f 72 65 61 63 |al $path|..foreac|
|00000ac0| 68 20 70 72 6f 63 20 5b | 70 72 6f 63 65 73 73 65 |h proc [|processe|
|00000ad0| 73 5d 20 7b 0d 09 09 69 | 66 20 7b 5b 6c 69 6e 64 |s] {...i|f {[lind|
|00000ae0| 65 78 20 24 70 72 6f 63 | 20 31 5d 20 3d 3d 20 24 |ex $proc| 1] == $|
|00000af0| 73 69 67 7d 20 7b 0d 09 | 09 09 72 65 74 75 72 6e |sig} {..|..return|
|00000b00| 20 5b 6c 69 6e 64 65 78 | 20 24 70 72 6f 63 20 30 | [lindex| $proc 0|
|00000b10| 5d 0d 09 09 7d 0d 09 7d | 0d 09 69 66 20 7b 21 5b |]...}..}|..if {![|
|00000b20| 69 6e 66 6f 20 65 78 69 | 73 74 73 20 24 70 61 74 |info exi|sts $pat|
|00000b30| 68 5d 20 7c 7c 20 21 5b | 66 69 6c 65 20 65 78 69 |h] || ![|file exi|
|00000b40| 73 74 73 20 5b 73 65 74 | 20 24 70 61 74 68 5d 5d |sts [set| $path]]|
|00000b50| 7d 20 7b 0d 09 09 69 66 | 20 7b 5b 61 64 64 41 70 |} {...if| {[addAp|
|00000b60| 70 50 61 74 68 20 24 6e | 61 6d 65 20 24 70 61 74 |pPath $n|ame $pat|
|00000b70| 68 5d 7d 20 72 65 74 75 | 72 6e 0d 09 7d 0d 09 69 |h]} retu|rn..}..i|
|00000b80| 66 20 7b 5b 63 61 74 63 | 68 20 7b 67 65 74 46 69 |f {[catc|h {getFi|
|00000b90| 6c 65 53 69 67 20 5b 73 | 65 74 20 24 70 61 74 68 |leSig [s|et $path|
|00000ba0| 5d 7d 5d 7d 20 7b 0d 09 | 09 69 66 20 7b 5b 61 64 |]}]} {..|.if {[ad|
|00000bb0| 64 41 70 70 50 61 74 68 | 20 24 6e 61 6d 65 20 24 |dAppPath| $name $|
|00000bc0| 70 61 74 68 5d 7d 20 72 | 65 74 75 72 6e 0d 09 7d |path]} r|eturn..}|
|00000bd0| 0d 09 73 65 74 20 73 69 | 67 20 5b 67 65 74 46 69 |..set si|g [getFi|
|00000be0| 6c 65 53 69 67 20 5b 73 | 65 74 20 24 70 61 74 68 |leSig [s|et $path|
|00000bf0| 5d 5d 0d 09 69 66 20 7b | 5b 63 61 74 63 68 20 7b |]]..if {|[catch {|
|00000c00| 6c 61 75 6e 63 68 20 2d | 66 20 5b 73 65 74 20 24 |launch -|f [set $|
|00000c10| 70 61 74 68 5d 7d 5d 7d | 20 7b 0d 09 09 65 72 72 |path]}]}| {...err|
|00000c20| 6f 72 20 22 50 72 6f 62 | 6c 65 6d 20 77 69 74 68 |or "Prob|lem with|
|00000c30| 20 6c 61 75 6e 63 68 69 | 6e 67 20 66 69 6c 65 20 | launchi|ng file |
|00000c40| 28 6f 75 74 20 6f 66 20 | 6d 65 6d 6f 72 79 3f 29 |(out of |memory?)|
|00000c50| 22 0d 09 7d 0d 09 72 65 | 74 75 72 6e 20 5b 66 69 |"..}..re|turn [fi|
|00000c60| 6c 65 20 74 61 69 6c 20 | 5b 73 65 74 20 24 70 61 |le tail |[set $pa|
|00000c70| 74 68 5d 5d 0d 23 09 72 | 65 74 75 72 6e 20 5b 63 |th]].#.r|eturn [c|
|00000c80| 68 65 63 6b 52 75 6e 6e | 69 6e 67 20 24 6e 61 6d |heckRunn|ing $nam|
|00000c90| 65 20 24 73 69 67 20 24 | 70 61 74 68 5d 0d 7d 0d |e $sig $|path].}.|
|00000ca0| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00000cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cf0| 3d 3d 0d 23 20 45 78 63 | 61 6c 69 62 75 72 20 69 |==.# Exc|alibur i|
|00000d00| 73 20 74 68 65 20 6f 6e | 6c 79 20 4d 61 63 20 73 |s the on|ly Mac s|
|00000d10| 70 65 6c 6c 2d 63 68 65 | 63 6b 65 72 20 74 68 61 |pell-che|cker tha|
|00000d20| 74 20 49 20 6b 6e 6f 77 | 20 6f 66 20 77 68 69 63 |t I know| of whic|
|00000d30| 68 20 77 69 6c 6c 20 68 | 61 6e 64 6c 65 20 4c 61 |h will h|andle La|
|00000d40| 54 65 58 20 61 73 0d 23 | 20 77 65 6c 6c 20 61 73 |TeX as.#| well as|
|00000d50| 20 6f 72 64 69 6e 61 72 | 79 20 74 65 78 74 2e 0d | ordinar|y text..|
|00000d60| 0d 0d 70 72 6f 63 20 73 | 70 65 6c 6c 63 68 65 63 |..proc s|pellchec|
|00000d70| 6b 57 69 6e 64 6f 77 20 | 7b 7d 20 7b 0d 09 67 6c |kWindow |{} {..gl|
|00000d80| 6f 62 61 6c 20 65 78 63 | 61 6c 69 62 75 72 50 61 |obal exc|aliburPa|
|00000d90| 74 68 20 72 65 73 75 6d | 65 52 65 76 65 72 74 0d |th resum|eRevert.|
|00000da0| 0d 09 63 61 74 63 68 20 | 7b 63 68 65 63 6b 52 75 |..catch |{checkRu|
|00000db0| 6e 6e 69 6e 67 20 45 78 | 63 61 6c 69 62 75 72 20 |nning Ex|calibur |
|00000dc0| 58 43 4c 42 20 65 78 63 | 61 6c 69 62 75 72 50 61 |XCLB exc|aliburPa|
|00000dd0| 74 68 7d 20 6e 61 6d 65 | 0d 0d 09 69 66 20 7b 5b |th} name|...if {[|
|00000de0| 77 69 6e 49 6e 66 6f 20 | 64 69 72 74 79 5d 7d 20 |winInfo |dirty]} |
|00000df0| 7b 0d 09 09 69 66 20 7b | 5b 61 73 6b 79 65 73 6e |{...if {|[askyesn|
|00000e00| 6f 20 22 53 61 76 65 20 | 27 5b 6c 69 6e 64 65 78 |o "Save |'[lindex|
|00000e10| 20 5b 77 69 6e 4e 61 6d | 65 73 5d 20 30 5d 27 3f | [winNam|es] 0]'?|
|00000e20| 22 5d 20 3d 3d 20 22 79 | 65 73 22 7d 20 7b 0d 09 |"] == "y|es"} {..|
|00000e30| 09 09 73 61 76 65 0d 09 | 09 7d 0d 09 7d 0d 09 69 |..save..|.}..}..i|
|00000e40| 66 20 7b 5b 63 61 74 63 | 68 20 7b 73 65 6e 64 4f |f {[catc|h {sendO|
|00000e50| 70 65 6e 45 76 65 6e 74 | 20 2d 6e 20 24 6e 61 6d |penEvent| -n $nam|
|00000e60| 65 20 5b 6c 69 6e 64 65 | 78 20 5b 77 69 6e 4e 61 |e [linde|x [winNa|
|00000e70| 6d 65 73 20 2d 66 5d 20 | 30 5d 7d 5d 20 7d 20 7b |mes -f] |0]}] } {|
|00000e80| 0d 09 09 62 65 65 70 20 | 0d 09 7d 20 65 6c 73 65 |...beep |..} else|
|00000e90| 20 7b 0d 09 09 73 77 69 | 74 63 68 54 6f 20 24 6e | {...swi|tchTo $n|
|00000ea0| 61 6d 65 0d 09 7d 0d 09 | 73 65 74 20 72 65 73 75 |ame..}..|set resu|
|00000eb0| 6d 65 52 65 76 65 72 74 | 20 31 0d 7d 0d 0d 70 72 |meRevert| 1.}..pr|
|00000ec0| 6f 63 20 73 70 65 6c 6c | 63 68 65 63 6b 53 65 6c |oc spell|checkSel|
|00000ed0| 65 63 74 69 6f 6e 20 7b | 7d 20 7b 0d 09 67 6c 6f |ection {|} {..glo|
|00000ee0| 62 61 6c 20 65 78 63 61 | 6c 69 62 75 72 50 61 74 |bal exca|liburPat|
|00000ef0| 68 20 0d 0d 09 63 61 74 | 63 68 20 7b 63 68 65 63 |h ...cat|ch {chec|
|00000f00| 6b 52 75 6e 6e 69 6e 67 | 20 45 78 63 61 6c 69 62 |kRunning| Excalib|
|00000f10| 75 72 20 58 43 4c 42 20 | 65 78 63 61 6c 69 62 75 |ur XCLB |excalibu|
|00000f20| 72 50 61 74 68 7d 20 6e | 61 6d 65 0d 0d 09 69 66 |rPath} n|ame...if|
|00000f30| 20 7b 5b 67 65 74 50 6f | 73 5d 20 3d 3d 20 5b 73 | {[getPo|s] == [s|
|00000f40| 65 6c 45 6e 64 5d 7d 20 | 7b 0d 09 09 62 65 65 70 |elEnd]} |{...beep|
|00000f50| 0d 09 09 6d 65 73 73 61 | 67 65 20 22 4e 6f 20 73 |...messa|ge "No s|
|00000f60| 65 6c 65 63 74 69 6f 6e | 22 0d 09 09 72 65 74 75 |election|"...retu|
|00000f70| 72 6e 3b 0d 09 7d 0d 09 | 63 6f 70 79 0d 09 73 77 |rn;..}..|copy..sw|
|00000f80| 69 74 63 68 54 6f 20 24 | 6e 61 6d 65 0d 7d 0d 0d |itchTo $|name.}..|
|00000f90| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000fa0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000fe0| 3d 0d 0d 0d 70 72 6f 63 | 20 61 6c 70 68 61 48 65 |=...proc| alphaHe|
|00000ff0| 6c 70 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |lp {} {.|.global |
|00001000| 48 4f 4d 45 20 77 69 6e | 4d 6f 64 65 73 0d 09 65 |HOME win|Modes..e|
|00001010| 64 69 74 20 2d 72 20 22 | 24 48 4f 4d 45 3a 48 65 |dit -r "|$HOME:He|
|00001020| 6c 70 3a 49 6e 74 72 6f | 22 0d 7d 0d 0d 0d 70 72 |lp:Intro|".}...pr|
|00001030| 6f 63 20 74 63 6c 48 65 | 6c 70 20 7b 7d 20 7b 0d |oc tclHe|lp {} {.|
|00001040| 09 67 6c 6f 62 61 6c 20 | 48 4f 4d 45 0d 09 65 64 |.global |HOME..ed|
|00001050| 69 74 20 2d 72 20 22 24 | 48 4f 4d 45 3a 48 65 6c |it -r "$|HOME:Hel|
|00001060| 70 3a 54 63 6c 20 43 6f | 6d 6d 61 6e 64 73 22 0d |p:Tcl Co|mmands".|
|00001070| 7d 0d 0d 0d 73 65 74 20 | 70 61 74 74 65 72 6e 4c |}...set |patternL|
|00001080| 69 62 72 61 72 79 20 7b | 0d 09 7b 20 22 50 61 73 |ibrary {|..{ "Pas|
|00001090| 63 61 6c 20 74 6f 20 43 | 20 43 6f 6d 6d 65 6e 74 |cal to C| Comment|
|000010a0| 73 22 20 7b 09 09 5c 7b | 28 5b 5e 5c 7d 5d 2a 29 |s" {..\{|([^\}]*)|
|000010b0| 5c 7d 7d 20 7b 2f 2a 20 | 5c 31 20 2a 2f 7d 20 7d |\}} {/* |\1 */} }|
|000010c0| 0d 09 7b 20 22 43 2b 2b | 20 74 6f 20 43 20 43 6f |..{ "C++| to C Co|
|000010d0| 6d 6d 65 6e 74 73 22 20 | 7b 2f 2f 28 2e 2a 29 7d |mments" |{//(.*)}|
|000010e0| 20 7b 2f 2a 20 5c 31 20 | 2a 2f 7d 7d 0d 7d 0d 0d | {/* \1 |*/}}.}..|
|000010f0| 0d 70 72 6f 63 20 64 69 | 76 69 64 69 6e 67 4c 69 |.proc di|vidingLi|
|00001100| 6e 65 20 7b 7d 20 7b 0d | 09 69 6e 73 65 72 74 54 |ne {} {.|.insertT|
|00001110| 65 78 74 20 22 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ext "===|========|
|00001120| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001130| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001140| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001150| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001160| 3d 3d 3d 3d 3d 5c 72 22 | 0d 7d 0d 62 69 6e 64 20 |=====\r"|.}.bind |
|00001170| 27 6c 27 20 3c 43 3e 20 | 64 69 76 69 64 69 6e 67 |'l' <C> |dividing|
|00001180| 4c 69 6e 65 0d 0d 70 72 | 6f 63 20 74 65 78 44 69 |Line..pr|oc texDi|
|00001190| 76 69 64 69 6e 67 4c 69 | 6e 65 20 7b 7d 20 7b 0d |vidingLi|ne {} {.|
|000011a0| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 25 3d 3d |.insertT|ext "%==|
|000011b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000011f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 5c 72 |========|======\r|
|00001200| 22 0d 7d 0d 62 69 6e 64 | 20 27 6c 27 20 3c 43 3e |".}.bind| 'l' <C>|
|00001210| 20 74 65 78 44 69 76 69 | 64 69 6e 67 4c 69 6e 65 | texDivi|dingLine|
|00001220| 20 54 65 58 0d 0d 70 72 | 6f 63 20 63 44 69 76 69 | TeX..pr|oc cDivi|
|00001230| 64 69 6e 67 4c 69 6e 65 | 20 7b 7d 20 7b 0d 09 69 |dingLine| {} {..i|
|00001240| 6e 73 65 72 74 54 65 78 | 74 20 22 2f 2f 3d 3d 3d |nsertTex|t "//===|
|00001250| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001260| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 5c 72 22 |========|=====\r"|
|000012a0| 0d 7d 0d 62 69 6e 64 20 | 27 6c 27 20 3c 43 3e 20 |.}.bind |'l' <C> |
|000012b0| 63 44 69 76 69 64 69 6e | 67 4c 69 6e 65 20 43 0d |cDividin|gLine C.|
|000012c0| 62 69 6e 64 20 27 6c 27 | 20 3c 43 3e 20 63 44 69 |bind 'l'| <C> cDi|
|000012d0| 76 69 64 69 6e 67 4c 69 | 6e 65 20 43 2b 2b 0d 0d |vidingLi|ne C++..|
|000012e0| 70 72 6f 63 20 74 63 6c | 44 69 76 69 64 69 6e 67 |proc tcl|Dividing|
|000012f0| 4c 69 6e 65 20 7b 7d 20 | 7b 0d 09 69 6e 73 65 72 |Line {} |{..inser|
|00001300| 74 54 65 78 74 20 22 23 | 3d 3d 3d 3d 3d 3d 3d 3d |tText "#|========|
|00001310| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001320| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001330| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001340| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001350| 3d 3d 3d 3d 3d 3d 3d 3d | 5c 72 22 0d 7d 0d 62 69 |========|\r".}.bi|
|00001360| 6e 64 20 27 6c 27 20 3c | 43 3e 20 74 63 6c 44 69 |nd 'l' <|C> tclDi|
|00001370| 76 69 64 69 6e 67 4c 69 | 6e 65 20 54 63 6c 0d 0d |vidingLi|ne Tcl..|
|00001380| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00001390| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000013d0| 3d 3d 0d 0d 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |==..if {|![string|
|000013e0| 20 6c 65 6e 67 74 68 20 | 5b 69 6e 66 6f 20 63 6f | length |[info co|
|000013f0| 6d 6d 61 6e 64 73 20 6f | 6c 64 43 64 5d 5d 7d 20 |mmands o|ldCd]]} |
|00001400| 7b 0d 09 72 65 6e 61 6d | 65 20 63 64 20 6f 6c 64 |{..renam|e cd old|
|00001410| 43 64 0d 7d 0d 0d 70 72 | 6f 63 20 63 64 20 61 72 |Cd.}..pr|oc cd ar|
|00001420| 67 73 20 7b 0d 09 67 6c | 6f 62 61 6c 20 48 4f 4d |gs {..gl|obal HOM|
|00001430| 45 0d 09 69 66 20 7b 5b | 6c 6c 65 6e 67 74 68 20 |E..if {[|llength |
|00001440| 24 61 72 67 73 5d 7d 20 | 7b 0d 09 09 6f 6c 64 43 |$args]} |{...oldC|
|00001450| 64 20 5b 73 74 72 69 6e | 67 20 74 72 69 6d 20 5b |d [strin|g trim [|
|00001460| 65 76 61 6c 20 6c 69 73 | 74 20 24 61 72 67 73 5d |eval lis|t $args]|
|00001470| 20 22 09 09 5c 7b 5c 7d | 22 5d 0d 09 7d 20 65 6c | "..\{\}|"]..} el|
|00001480| 73 65 20 7b 0d 09 09 6f | 6c 64 43 64 20 24 48 4f |se {...o|ldCd $HO|
|00001490| 4d 45 0d 09 7d 0d 7d 0d | 0d 0d 0d 23 23 23 23 23 |ME..}.}.|...#####|
|000014a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014d0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000014e0| 23 23 23 23 23 23 23 23 | 0d 23 20 20 4c 69 73 74 |########|.#  List|
|000014f0| 20 74 68 65 20 6e 61 6d | 65 20 61 6e 64 20 76 61 | the nam|e and va|
|00001500| 6c 75 65 20 6f 66 20 65 | 61 63 68 20 65 6c 65 6d |lue of e|ach elem|
|00001510| 65 6e 74 20 6f 66 20 74 | 68 65 20 61 72 72 61 79 |ent of t|he array|
|00001520| 20 24 61 72 72 4e 61 6d | 65 2e 0d 23 20 20 28 43 | $arrNam|e..#  (C|
|00001530| 6f 6e 76 65 6e 69 65 6e | 74 20 74 6f 20 75 73 65 |onvenien|t to use|
|00001540| 20 61 73 20 61 20 73 68 | 65 6c 6c 20 63 6f 6d 6d | as a sh|ell comm|
|00001550| 61 6e 64 2e 29 0d 23 0d | 23 20 20 4e 6f 74 65 3a |and.).#.|#  Note:|
|00001560| 20 69 74 27 73 20 73 6c | 6f 77 65 72 20 74 6f 20 | it's sl|ower to |
|00001570| 69 6e 73 65 72 74 20 74 | 68 65 20 6c 69 6e 65 73 |insert t|he lines|
|00001580| 20 6f 6e 65 2d 62 79 2d | 6f 6e 65 20 6c 69 6b 65 | one-by-|one like|
|00001590| 20 74 68 69 73 2c 20 62 | 75 74 20 0d 23 20 20 61 | this, b|ut .#  a|
|000015a0| 73 73 65 6d 62 6c 69 6e | 67 20 65 76 65 72 79 74 |ssemblin|g everyt|
|000015b0| 68 69 6e 67 20 69 6e 20 | 24 6c 69 6e 65 73 20 62 |hing in |$lines b|
|000015c0| 65 66 6f 72 65 20 69 6e | 73 65 72 74 69 6e 67 20 |efore in|serting |
|000015d0| 63 61 6e 20 73 65 72 69 | 6f 75 73 6c 79 20 63 72 |can seri|ously cr|
|000015e0| 61 73 68 20 41 6c 70 68 | 61 0d 23 20 20 69 66 20 |ash Alph|a.#  if |
|000015f0| 74 68 65 20 72 65 73 75 | 6c 74 20 69 73 20 74 6f |the resu|lt is to|
|00001600| 6f 20 62 69 67 2e 20 20 | 28 54 72 79 69 6e 67 20 |o big.  |(Trying |
|00001610| 74 6f 20 6c 69 73 74 20 | 74 68 65 20 63 6f 6e 74 |to list |the cont|
|00001620| 65 6e 74 73 20 6f 66 20 | 24 61 75 74 6f 5f 69 6e |ents of |$auto_in|
|00001630| 64 65 78 28 29 0d 23 20 | 20 77 69 6c 6c 20 64 6f |dex().# | will do|
|00001640| 20 69 74 2e 29 20 20 54 | 68 69 73 20 6d 65 74 68 | it.)  T|his meth|
|00001650| 6f 64 20 73 65 65 6d 73 | 20 74 6f 20 62 65 20 6d |od seems| to be m|
|00001660| 6f 72 65 20 72 6f 62 75 | 73 74 2e 0d 23 0d 70 72 |ore robu|st..#.pr|
|00001670| 6f 63 20 6c 69 73 74 41 | 72 72 61 79 20 7b 61 72 |oc listA|rray {ar|
|00001680| 72 4e 61 6d 65 7d 20 7b | 0d 20 20 20 20 67 6c 6f |rName} {|.    glo|
|00001690| 62 61 6c 20 24 61 72 72 | 4e 61 6d 65 0d 20 20 20 |bal $arr|Name.   |
|000016a0| 20 73 65 74 20 6c 69 6e | 65 73 20 7b 7d 0d 20 20 | set lin|es {}.  |
|000016b0| 20 20 69 66 20 7b 21 5b | 63 61 74 63 68 20 7b 69 |  if {![|catch {i|
|000016c0| 6e 66 6f 20 76 61 72 73 | 20 24 61 72 72 4e 61 6d |nfo vars| $arrNam|
|000016d0| 65 7d 5d 7d 20 7b 0d 20 | 20 20 20 20 20 20 20 66 |e}]} {. |       f|
|000016e0| 6f 72 65 61 63 68 20 6e | 6d 20 5b 61 72 72 61 79 |oreach n|m [array|
|000016f0| 20 6e 61 6d 65 73 20 24 | 61 72 72 4e 61 6d 65 5d | names $|arrName]|
|00001700| 20 7b 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 73 | {.     |       s|
|00001710| 65 74 20 76 61 6c 20 5b | 65 78 70 72 20 5c 24 24 |et val [|expr \$$|
|00001720| 61 72 72 4e 61 6d 65 5c | 28 24 6e 6d 5c 29 5d 0d |arrName\|($nm\)].|
|00001730| 20 20 20 20 20 20 20 20 | 20 20 20 20 61 70 70 65 |        |    appe|
|00001740| 6e 64 20 6c 69 6e 65 73 | 20 22 5c 72 5c 22 24 6e |nd lines| "\r\"$n|
|00001750| 6d 5c 22 5c 74 5c 7b 24 | 76 61 6c 5c 7d 22 0d 20 |m\"\t\{$|val\}". |
|00001760| 20 20 20 20 20 20 20 7d | 0d 20 20 20 20 20 20 20 |       }|.       |
|00001770| 20 69 6e 73 65 72 74 54 | 65 78 74 20 24 6c 69 6e | insertT|ext $lin|
|00001780| 65 73 0d 20 20 20 20 7d | 20 65 6c 73 65 20 7b 0d |es.    }| else {.|
|00001790| 20 20 20 20 20 20 20 20 | 61 6c 65 72 74 6e 6f 74 |        |alertnot|
|000017a0| 65 20 22 5c 22 24 61 72 | 72 4e 61 6d 65 5c 22 20 |e "\"$ar|rName\" |
|000017b0| 64 6f 65 73 6e 27 74 20 | 65 78 69 73 74 20 69 6e |doesn't |exist in|
|000017c0| 20 74 68 69 73 20 63 6f | 6e 74 65 78 74 22 0d 20 | this co|ntext". |
|000017d0| 20 20 20 7d 0d 7d 0d 0d | 0d 0d 23 3d 3d 3d 3d 3d |   }.}..|..#=====|
|000017e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000017f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001800| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 09 0d 70 72 |========|===...pr|
|00001830| 6f 63 20 73 65 6c 65 63 | 74 50 61 72 61 67 72 61 |oc selec|tParagra|
|00001840| 70 68 20 7b 7d 20 7b 0d | 09 73 65 74 20 70 6f 73 |ph {} {.|.set pos|
|00001850| 20 5b 67 65 74 50 6f 73 | 5d 0d 09 73 65 74 20 73 | [getPos|]..set s|
|00001860| 74 61 72 74 20 5b 70 61 | 72 61 53 74 61 72 74 20 |tart [pa|raStart |
|00001870| 24 70 6f 73 5d 20 0d 09 | 73 65 74 20 66 69 6e 69 |$pos] ..|set fini|
|00001880| 73 68 20 5b 70 61 72 61 | 46 69 6e 69 73 68 20 24 |sh [para|Finish $|
|00001890| 70 6f 73 5d 0d 09 67 6f | 74 6f 20 24 73 74 61 72 |pos]..go|to $star|
|000018a0| 74 0d 09 73 65 6c 65 63 | 74 20 24 73 74 61 72 74 |t..selec|t $start|
|000018b0| 20 24 66 69 6e 69 73 68 | 0d 7d 0d 0d 23 20 77 72 | $finish|.}..# wr|
|000018c0| 61 70 54 65 78 74 20 3d | 3d 20 20 67 65 74 54 65 |apText =|=  getTe|
|000018d0| 78 74 20 3b 20 62 72 65 | 61 6b 49 6e 74 6f 4c 69 |xt ; bre|akIntoLi|
|000018e0| 6e 65 73 20 3b 20 72 65 | 70 6c 61 63 65 54 65 78 |nes ; re|placeTex|
|000018f0| 74 0d 23 20 52 65 6d 6f | 76 65 20 74 65 78 74 20 |t.# Remo|ve text |
|00001900| 66 72 6f 6d 20 77 69 6e | 64 6f 77 2c 20 74 72 61 |from win|dow, tra|
|00001910| 6e 73 66 6f 72 6d 20 28 | 6a 6f 69 6e 2c 20 64 65 |nsform (|join, de|
|00001920| 6c 2d 77 73 29 2c 20 69 | 6e 73 65 72 74 20 62 61 |l-ws), i|nsert ba|
|00001930| 63 6b 20 69 6e 74 6f 20 | 77 69 6e 64 6f 77 2e 0d |ck into |window..|
|00001940| 70 72 6f 63 20 66 69 6c | 6c 54 65 78 74 42 79 50 |proc fil|lTextByP|
|00001950| 61 72 20 7b 66 72 6f 6d | 20 74 6f 7d 20 7b 0d 09 |ar {from| to} {..|
|00001960| 73 65 74 20 74 65 78 74 | 20 5b 67 65 74 54 65 78 |set text| [getTex|
|00001970| 74 20 24 66 72 6f 6d 20 | 24 74 6f 5d 0d 09 72 65 |t $from |$to]..re|
|00001980| 67 73 75 62 20 2d 61 6c | 6c 20 22 5c 72 28 5c 5b |gsub -al|l "\r(\[|
|00001990| 20 5c 74 5c 5d 2a 5c 72 | 29 2b 22 20 24 74 65 78 | \t\]*\r|)+" $tex|
|000019a0| 74 20 22 5c 72 5c 72 5c | 72 22 20 74 65 78 74 0d |t "\r\r\|r" text.|
|000019b0| 09 72 65 67 73 75 62 20 | 2d 61 6c 6c 20 22 28 5c |.regsub |-all "(\|
|000019c0| 5b 5e 5c 72 5c 5d 29 5c | 72 22 20 24 74 65 78 74 |[^\r\])\|r" $text|
|000019d0| 20 22 5c 5c 31 20 22 20 | 74 65 78 74 0d 09 72 65 | "\\1 " |text..re|
|000019e0| 67 73 75 62 20 2d 61 6c | 6c 20 22 5c 5b 20 5c 74 |gsub -al|l "\[ \t|
|000019f0| 5c 5d 2b 22 20 24 74 65 | 78 74 20 22 20 22 20 74 |\]+" $te|xt " " t|
|00001a00| 65 78 74 0d 09 72 65 74 | 75 72 6e 20 5b 62 72 65 |ext..ret|urn [bre|
|00001a10| 61 6b 49 6e 74 6f 4c 69 | 6e 65 73 20 24 74 65 78 |akIntoLi|nes $tex|
|00001a20| 74 5d 0d 7d 0d 0d 70 72 | 6f 63 20 66 69 6c 6c 52 |t].}..pr|oc fillR|
|00001a30| 65 67 69 6f 6e 42 79 50 | 61 72 20 7b 7b 73 74 61 |egionByP|ar {{sta|
|00001a40| 72 74 20 2d 31 7d 20 7b | 66 69 6e 69 73 68 20 2d |rt -1} {|finish -|
|00001a50| 31 7d 7d 20 7b 0d 23 09 | 23 20 69 66 20 7b 5b 67 |1}} {.#.|# if {[g|
|00001a60| 65 74 50 6f 73 5d 20 3d | 3d 20 5b 73 65 6c 45 6e |etPos] =|= [selEn|
|00001a70| 64 5d 7d 20 7b 20 72 65 | 74 75 72 6e 7d 0d 09 69 |d]} { re|turn}..i|
|00001a80| 66 20 7b 28 24 73 74 61 | 72 74 20 3c 20 30 29 20 |f {($sta|rt < 0) |
|00001a90| 7c 7c 20 28 24 66 69 6e | 69 73 68 20 3c 20 30 29 ||| ($fin|ish < 0)|
|00001aa0| 7d 20 7b 0d 09 09 73 65 | 74 20 73 74 61 72 74 20 |} {...se|t start |
|00001ab0| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |[lineSta|rt [getP|
|00001ac0| 6f 73 5d 5d 0d 09 09 73 | 65 74 20 66 69 6e 69 73 |os]]...s|et finis|
|00001ad0| 68 20 5b 73 65 6c 45 6e | 64 5d 20 7d 0d 09 69 66 |h [selEn|d] }..if|
|00001ae0| 20 7b 24 73 74 61 72 74 | 20 3e 3d 20 24 66 69 6e | {$start| >= $fin|
|00001af0| 69 73 68 7d 20 72 65 74 | 75 72 6e 0d 09 67 6f 74 |ish} ret|urn..got|
|00001b00| 6f 20 24 73 74 61 72 74 | 0d 09 73 65 74 20 74 65 |o $start|..set te|
|00001b10| 78 74 20 5b 66 69 6c 6c | 54 65 78 74 42 79 50 61 |xt [fill|TextByPa|
|00001b20| 72 20 24 73 74 61 72 74 | 20 24 66 69 6e 69 73 68 |r $start| $finish|
|00001b30| 5d 0d 09 72 65 70 6c 61 | 63 65 54 65 78 74 20 24 |]..repla|ceText $|
|00001b40| 73 74 61 72 74 20 24 66 | 69 6e 69 73 68 20 24 74 |start $f|inish $t|
|00001b50| 65 78 74 20 22 5c 72 22 | 0d 7d 0d 09 0d 23 0d 23 |ext "\r"|.}...#.#|
|00001b60| 20 6a 6f 69 6e 20 4c 69 | 6e 65 73 20 69 6e 20 72 | join Li|nes in r|
|00001b70| 65 67 69 6f 6e 20 2d 2d | 20 69 66 20 6e 6f 20 6f |egion --| if no o|
|00001b80| 70 74 69 6f 6e 61 6c 20 | 61 72 67 73 2c 20 75 73 |ptional |args, us|
|00001b90| 65 20 73 65 6c 65 63 74 | 69 6f 6e 0d 23 0d 70 72 |e select|ion.#.pr|
|00001ba0| 6f 63 20 6a 6f 69 6e 52 | 65 67 69 6f 6e 20 7b 7b |oc joinR|egion {{|
|00001bb0| 66 72 6f 6d 20 2d 31 7d | 20 7b 74 6f 20 2d 31 7d |from -1}| {to -1}|
|00001bc0| 7d 20 7b 0d 09 69 66 20 | 7b 28 24 66 72 6f 6d 20 |} {..if |{($from |
|00001bd0| 3c 20 30 29 20 7c 7c 20 | 28 24 74 6f 20 3c 20 30 |< 0) || |($to < 0|
|00001be0| 29 7d 20 7b 09 73 65 74 | 20 66 72 6f 6d 20 5b 67 |)} {.set| from [g|
|00001bf0| 65 74 50 6f 73 5d 20 3b | 20 73 65 74 20 74 6f 20 |etPos] ;| set to |
|00001c00| 5b 73 65 6c 45 6e 64 5d | 20 7d 0d 09 69 66 20 7b |[selEnd]| }..if {|
|00001c10| 24 66 72 6f 6d 20 3e 3d | 20 24 74 6f 7d 20 72 65 |$from >=| $to} re|
|00001c20| 74 75 72 6e 0d 09 73 65 | 74 20 74 65 78 74 20 5b |turn..se|t text [|
|00001c30| 67 65 74 54 65 78 74 20 | 24 66 72 6f 6d 20 24 74 |getText |$from $t|
|00001c40| 6f 5d 0d 09 72 65 67 73 | 75 62 20 2d 61 6c 6c 20 |o]..regs|ub -all |
|00001c50| 22 5c 72 28 5c 5b 20 5c | 74 5c 5d 2a 5c 72 29 2b |"\r(\[ \|t\]*\r)+|
|00001c60| 22 20 24 74 65 78 74 20 | 22 5c 72 5c 72 5c 72 22 |" $text |"\r\r\r"|
|00001c70| 20 74 65 78 74 0d 09 72 | 65 67 73 75 62 20 2d 61 | text..r|egsub -a|
|00001c80| 6c 6c 20 22 28 5c 5b 5e | 5c 72 5c 5d 29 5c 72 22 |ll "(\[^|\r\])\r"|
|00001c90| 20 24 74 65 78 74 20 22 | 5c 5c 31 20 22 20 74 65 | $text "|\\1 " te|
|00001ca0| 78 74 0d 09 72 65 70 6c | 61 63 65 54 65 78 74 20 |xt..repl|aceText |
|00001cb0| 24 66 72 6f 6d 20 24 74 | 6f 20 24 74 65 78 74 20 |$from $t|o $text |
|00001cc0| 22 5c 72 22 0d 7d 0d 23 | 20 57 41 52 4e 49 4e 47 |"\r".}.#| WARNING|
|00001cd0| 3a 09 72 65 67 73 75 62 | 20 5e 24 20 72 65 66 65 |:.regsub| ^$ refe|
|00001ce0| 72 73 20 74 6f 20 73 74 | 72 69 6e 67 20 65 6e 64 |rs to st|ring end|
|00001cf0| 70 74 73 20 28 6e 6f 74 | 20 6c 69 6e 65 73 29 0d |pts (not| lines).|
|00001d00| 23 20 46 55 54 55 52 45 | 3a 09 66 69 6c 74 65 72 |# FUTURE|:.filter|
|00001d10| 4c 69 6e 65 73 20 6c 69 | 6b 65 20 70 65 72 6c 3a |Lines li|ke perl:|
|00001d20| 0d 23 09 72 65 70 6c 61 | 63 65 54 65 78 74 5b 61 |.#.repla|ceText[a|
|00001d30| 70 70 6c 79 5f 74 6f 5f | 61 6c 6c 28 63 6d 64 2c |pply_to_|all(cmd,|
|00001d40| 73 70 6c 69 74 20 5b 67 | 65 74 54 65 78 74 20 5b |split [g|etText [|
|00001d50| 67 65 74 50 6f 73 5d 20 | 5b 73 65 6c 45 6e 64 5d |getPos] |[selEnd]|
|00001d60| 5d 20 22 5c 72 22 29 5d | 0d 23 20 4f 52 3a 09 72 |] "\r")]|.# OR:.r|
|00001d70| 65 70 6c 61 63 65 49 6e | 52 65 67 69 6f 6e 3a 20 |eplaceIn|Region: |
|00001d80| 64 75 70 5f 5c 72 2c 20 | 24 3d 3e 5c 72 20 3f 3f |dup_\r, |$=>\r ??|
|00001d90| 0d 23 0d 0d 0d 23 0d 23 | 20 52 65 6d 6f 76 65 20 |.#...#.#| Remove |
|00001da0| 74 65 78 74 20 66 72 6f | 6d 20 77 69 6e 64 6f 77 |text fro|m window|
|00001db0| 2c 20 74 72 61 6e 73 66 | 6f 72 6d 20 28 64 65 6c |, transf|orm (del|
|00001dc0| 65 74 65 20 64 75 70 20 | 77 73 29 2c 20 69 6e 73 |ete dup |ws), ins|
|00001dd0| 65 72 74 20 62 61 63 6b | 20 69 6e 74 6f 20 77 69 |ert back| into wi|
|00001de0| 6e 64 6f 77 2e 0d 23 0d | 23 20 69 6e 70 75 74 73 |ndow..#.|# inputs|
|00001df0| 3a 20 6d 65 73 73 61 67 | 65 2c 20 61 6c 65 72 74 |: messag|e, alert|
|00001e00| 6e 6f 74 65 2c 20 61 73 | 6b 79 65 73 6e 6f 2c 20 |note, as|kyesno, |
|00001e10| 6c 69 73 74 70 69 63 6b | 2c 20 70 72 6f 6d 70 74 |listpick|, prompt|
|00001e20| 20 4b 49 4c 4c 53 20 53 | 45 4c 45 43 54 49 4f 4e | KILLS S|ELECTION|
|00001e30| 2e 0d 23 20 73 65 61 72 | 63 68 3a 20 62 6e 64 73 |..# sear|ch: bnds|
|00001e40| 20 3d 20 73 65 61 72 63 | 68 20 2d 66 6f 72 77 61 | = searc|h -forwa|
|00001e50| 72 64 20 2d 72 65 67 45 | 78 70 72 20 2d 69 67 6e |rd -regE|xpr -ign|
|00001e60| 6f 72 65 43 61 73 65 20 | 2d 6d 61 74 63 68 57 6f |oreCase |-matchWo|
|00001e70| 72 64 73 20 2d 6e 6f 61 | 62 6f 72 74 20 0d 23 09 |rds -noa|bort .#.|
|00001e80| 09 2d 6c 20 6c 69 6d 69 | 74 20 70 61 74 20 70 6f |.-l limi|t pat po|
|00001e90| 73 0d 23 20 0d 70 72 6f | 63 20 72 65 67 73 75 62 |s.# .pro|c regsub|
|00001ea0| 49 6e 52 65 67 69 6f 6e | 20 7b 66 72 6f 6d 20 74 |InRegion| {from t|
|00001eb0| 6f 20 73 72 63 68 20 72 | 65 70 6c 7d 20 7b 0d 09 |o srch r|epl} {..|
|00001ec0| 69 66 20 7b 21 5b 73 74 | 72 69 6e 67 20 6c 65 6e |if {![st|ring len|
|00001ed0| 67 74 68 20 24 73 72 63 | 68 5d 7d 20 72 65 74 75 |gth $src|h]} retu|
|00001ee0| 72 6e 0d 09 69 66 20 7b | 24 66 72 6f 6d 20 3e 3d |rn..if {|$from >=|
|00001ef0| 20 24 74 6f 7d 20 72 65 | 74 75 72 6e 0d 09 73 65 | $to} re|turn..se|
|00001f00| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00001f10| 24 66 72 6f 6d 20 24 74 | 6f 5d 0d 09 72 65 67 73 |$from $t|o]..regs|
|00001f20| 75 62 20 2d 61 6c 6c 20 | 22 24 73 72 63 68 22 20 |ub -all |"$srch" |
|00001f30| 24 74 65 78 74 20 22 24 | 72 65 70 6c 22 20 74 65 |$text "$|repl" te|
|00001f40| 78 74 0d 09 72 65 70 6c | 61 63 65 54 65 78 74 20 |xt..repl|aceText |
|00001f50| 24 66 72 6f 6d 20 24 74 | 6f 20 24 74 65 78 74 0d |$from $t|o $text.|
|00001f60| 7d 0d 23 09 77 68 69 6c | 65 20 7b 28 24 70 6f 73 |}.#.whil|e {($pos|
|00001f70| 20 3c 20 24 74 6f 29 20 | 26 26 0d 23 09 09 20 20 | < $to) |&&.#..  |
|00001f80| 21 5b 63 61 74 63 68 20 | 7b 73 65 61 72 63 68 20 |![catch |{search |
|00001f90| 2d 66 20 31 20 2d 72 20 | 31 20 2d 69 20 31 20 2d |-f 1 -r |1 -i 1 -|
|00001fa0| 6d 20 30 20 22 24 73 72 | 63 68 22 20 24 70 6f 73 |m 0 "$sr|ch" $pos|
|00001fb0| 7d 20 6d 74 63 68 5d 7d | 20 7b 0d 23 09 09 73 65 |} mtch]}| {.#..se|
|00001fc0| 74 20 6d 62 65 67 20 5b | 6c 69 6e 64 65 78 20 24 |t mbeg [|lindex $|
|00001fd0| 6d 74 63 68 20 30 5d 0d | 23 09 09 73 65 74 20 70 |mtch 0].|#..set p|
|00001fe0| 6f 73 20 5b 6c 69 6e 64 | 65 78 20 24 6d 74 63 68 |os [lind|ex $mtch|
|00001ff0| 20 31 5d 0d 23 09 09 72 | 65 70 6c 61 63 65 54 65 | 1].#..r|eplaceTe|
|00002000| 78 74 20 24 6d 62 65 67 | 20 24 70 6f 73 20 24 72 |xt $mbeg| $pos $r|
|00002010| 65 70 6c 20 7d 0d 0d 23 | 70 72 6f 63 20 62 61 63 |epl }..#|proc bac|
|00002020| 6b 53 6c 61 73 68 53 75 | 62 20 7b 61 72 67 7d 20 |kSlashSu|b {arg} |
|00002030| 7b 20 65 76 61 6c 20 5b | 63 6f 6e 63 61 74 20 72 |{ eval [|concat r|
|00002040| 65 74 75 72 6e 20 22 5c | 22 24 61 72 67 5c 22 22 |eturn "\|"$arg\""|
|00002050| 5d 20 7d 0d 0d 70 72 6f | 63 20 62 61 63 6b 53 6c |] }..pro|c backSl|
|00002060| 61 73 68 53 75 62 20 7b | 61 72 67 7d 20 7b 0d 09 |ashSub {|arg} {..|
|00002070| 72 65 67 73 75 62 20 2d | 61 6c 6c 20 7b 5c 5c 7d |regsub -|all {\\}|
|00002080| 20 24 61 72 67 20 7b 5c | 5c 5c 5c 7d 20 61 72 67 | $arg {\|\\\} arg|
|00002090| 0d 09 72 65 67 73 75 62 | 20 2d 61 6c 6c 20 7b 5c |..regsub| -all {\|
|000020a0| 5b 7d 20 24 61 72 67 20 | 7b 5c 5c 5b 7d 20 61 72 |[} $arg |{\\[} ar|
|000020b0| 67 0d 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 7b |g..regsu|b -all {|
|000020c0| 5c 5d 7d 20 24 61 72 67 | 20 7b 5c 5c 5d 7d 20 61 |\]} $arg| {\\]} a|
|000020d0| 72 67 0d 09 65 76 61 6c | 20 5b 63 6f 6e 63 61 74 |rg..eval| [concat|
|000020e0| 20 72 65 74 75 72 6e 20 | 22 5c 22 24 61 72 67 5c | return |"\"$arg\|
|000020f0| 22 22 5d 0d 7d 0d 0d 70 | 72 6f 63 20 72 65 70 6c |""].}..p|roc repl|
|00002100| 61 63 65 49 6e 52 65 67 | 69 6f 6e 20 7b 7d 20 7b |aceInReg|ion {} {|
|00002110| 0d 09 69 66 20 5b 63 61 | 74 63 68 20 7b 70 72 6f |..if [ca|tch {pro|
|00002120| 6d 70 74 20 22 53 65 61 | 72 63 68 20 52 65 67 45 |mpt "Sea|rch RegE|
|00002130| 78 70 72 3a 22 20 22 22 | 7d 20 73 72 63 68 5d 20 |xpr:" ""|} srch] |
|00002140| 72 65 74 75 72 6e 0d 09 | 69 66 20 5b 63 61 74 63 |return..|if [catc|
|00002150| 68 20 7b 70 72 6f 6d 70 | 74 20 22 52 65 70 6c 61 |h {promp|t "Repla|
|00002160| 63 65 20 53 74 72 69 6e | 67 3a 22 20 22 22 7d 20 |ce Strin|g:" ""} |
|00002170| 72 65 70 6c 5d 20 72 65 | 74 75 72 6e 0d 09 69 66 |repl] re|turn..if|
|00002180| 20 7b 21 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 | {![stri|ng lengt|
|00002190| 68 20 24 73 72 63 68 5d | 7d 20 72 65 74 75 72 6e |h $srch]|} return|
|000021a0| 0d 09 72 65 67 73 75 62 | 49 6e 52 65 67 69 6f 6e |..regsub|InRegion|
|000021b0| 20 5b 67 65 74 50 6f 73 | 5d 20 5b 73 65 6c 45 6e | [getPos|] [selEn|
|000021c0| 64 5d 20 5c 0d 09 09 5b | 62 61 63 6b 53 6c 61 73 |d] \...[|backSlas|
|000021d0| 68 53 75 62 20 22 24 73 | 72 63 68 22 5d 20 5b 62 |hSub "$s|rch"] [b|
|000021e0| 61 63 6b 53 6c 61 73 68 | 53 75 62 20 22 24 72 65 |ackSlash|Sub "$re|
|000021f0| 70 6c 22 5d 0d 7d 0d 0d | 23 0d 23 20 41 70 70 6c |pl"].}..|#.# Appl|
|00002200| 79 20 63 6f 6d 6d 61 6e | 64 20 74 6f 20 65 61 63 |y comman|d to eac|
|00002210| 68 20 6c 69 6e 65 20 28 | 6f 72 20 70 61 72 61 67 |h line (|or parag|
|00002220| 72 61 70 68 29 20 69 6e | 20 73 65 6c 65 63 74 69 |raph) in| selecti|
|00002230| 6f 6e 20 3b 0d 23 09 69 | 66 20 6e 6f 20 63 6d 64 |on ;.#.i|f no cmd|
|00002240| 20 61 72 67 20 74 68 65 | 6e 20 70 72 6f 6d 70 74 | arg the|n prompt|
|00002250| 73 20 66 6f 72 20 69 74 | 0d 23 0d 70 72 6f 63 20 |s for it|.#.proc |
|00002260| 66 69 6c 74 65 72 4c 69 | 6e 65 73 20 7b 7b 63 6d |filterLi|nes {{cm|
|00002270| 64 20 30 7d 20 7b 70 61 | 72 75 6e 69 74 20 30 7d |d 0} {pa|runit 0}|
|00002280| 7d 20 7b 0d 09 69 66 20 | 7b 24 63 6d 64 20 3d 3d |} {..if |{$cmd ==|
|00002290| 20 30 7d 20 7b 0d 09 20 | 20 69 66 20 7b 5b 63 61 | 0} {.. | if {[ca|
|000022a0| 74 63 68 20 7b 20 70 72 | 6f 6d 70 74 20 22 4c 69 |tch { pr|ompt "Li|
|000022b0| 6e 65 2d 66 69 6c 74 65 | 72 20 63 6f 6d 6d 61 6e |ne-filte|r comman|
|000022c0| 64 3a 20 22 20 22 22 20 | 7d 20 63 6d 64 5d 7d 20 |d: " "" |} cmd]} |
|000022d0| 7b 20 72 65 74 75 72 6e | 20 7d 20 7d 0d 09 69 66 |{ return| } }..if|
|000022e0| 20 7b 21 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 | {![stri|ng lengt|
|000022f0| 68 20 24 63 6d 64 5d 7d | 20 72 65 74 75 72 6e 0d |h $cmd]}| return.|
|00002300| 09 73 65 74 20 75 6e 69 | 74 53 74 61 72 74 20 6c |.set uni|tStart l|
|00002310| 69 6e 65 53 74 61 72 74 | 0d 09 73 65 74 20 75 6e |ineStart|..set un|
|00002320| 69 74 45 6e 64 20 6e 65 | 78 74 4c 69 6e 65 53 74 |itEnd ne|xtLineSt|
|00002330| 61 72 74 0d 09 69 66 20 | 7b 24 70 61 72 75 6e 69 |art..if |{$paruni|
|00002340| 74 7d 20 7b 0d 09 09 73 | 65 74 20 75 6e 69 74 53 |t} {...s|et unitS|
|00002350| 74 61 72 74 20 70 61 72 | 61 53 74 61 72 74 0d 09 |tart par|aStart..|
|00002360| 09 73 65 74 20 75 6e 69 | 74 45 6e 64 20 70 61 72 |.set uni|tEnd par|
|00002370| 61 46 69 6e 69 73 68 20 | 7d 0d 09 73 65 74 20 70 |aFinish |}..set p|
|00002380| 6f 73 20 5b 24 75 6e 69 | 74 53 74 61 72 74 20 5b |os [$uni|tStart [|
|00002390| 67 65 74 50 6f 73 5d 5d | 0d 09 73 65 74 20 66 69 |getPos]]|..set fi|
|000023a0| 6e 69 73 68 20 5b 73 65 | 6c 45 6e 64 5d 0d 09 69 |nish [se|lEnd]..i|
|000023b0| 66 20 7b 24 70 6f 73 20 | 3e 3d 20 24 66 69 6e 69 |f {$pos |>= $fini|
|000023c0| 73 68 7d 20 72 65 74 75 | 72 6e 0d 09 67 6f 74 6f |sh} retu|rn..goto|
|000023d0| 20 24 70 6f 73 0d 09 63 | 72 65 61 74 65 54 4d 61 | $pos..c|reateTMa|
|000023e0| 72 6b 20 22 66 69 6c 74 | 65 72 4c 65 6e 64 22 20 |rk "filt|erLend" |
|000023f0| 24 66 69 6e 69 73 68 0d | 09 73 65 74 20 6e 65 78 |$finish.|.set nex|
|00002400| 74 20 5b 24 75 6e 69 74 | 45 6e 64 20 24 70 6f 73 |t [$unit|End $pos|
|00002410| 5d 0d 09 77 68 69 6c 65 | 20 7b 28 28 24 6e 65 78 |]..while| {(($nex|
|00002420| 74 20 3e 20 24 70 6f 73 | 29 20 26 26 20 28 24 70 |t > $pos|) && ($p|
|00002430| 6f 73 20 3c 20 24 66 69 | 6e 69 73 68 29 29 7d 20 |os < $fi|nish))} |
|00002440| 7b 0d 09 09 67 6f 74 6f | 20 5b 65 78 70 72 20 24 |{...goto| [expr $|
|00002450| 6e 65 78 74 2d 31 5d 0d | 09 09 63 72 65 61 74 65 |next-1].|..create|
|00002460| 54 4d 61 72 6b 20 22 66 | 69 6c 74 65 72 4c 6e 65 |TMark "f|ilterLne|
|00002470| 78 74 22 20 24 6e 65 78 | 74 0d 09 09 73 65 74 4d |xt" $nex|t...setM|
|00002480| 61 72 6b 0d 09 09 67 6f | 74 6f 20 24 70 6f 73 0d |ark...go|to $pos.|
|00002490| 09 09 6d 61 72 6b 48 69 | 6c 69 74 65 0d 09 09 69 |..markHi|lite...i|
|000024a0| 66 20 7b 5b 63 61 74 63 | 68 20 5b 6c 69 73 74 20 |f {[catc|h [list |
|000024b0| 75 70 6c 65 76 65 6c 20 | 23 30 20 22 24 63 6d 64 |uplevel |#0 "$cmd|
|000024c0| 22 5d 20 72 65 74 76 61 | 6c 5d 7d 20 7b 0d 09 09 |"] retva|l]} {...|
|000024d0| 09 73 65 6c 65 63 74 20 | 24 70 6f 73 20 24 66 69 |.select |$pos $fi|
|000024e0| 6e 69 73 68 0d 09 09 09 | 61 6c 65 72 74 6e 6f 74 |nish....|alertnot|
|000024f0| 65 20 24 72 65 74 76 61 | 6c 0d 09 09 09 72 65 74 |e $retva|l....ret|
|00002500| 75 72 6e 0d 09 09 7d 0d | 09 09 69 66 20 7b 24 6e |urn...}.|..if {$n|
|00002510| 65 78 74 3d 3d 24 66 69 | 6e 69 73 68 7d 20 62 72 |ext==$fi|nish} br|
|00002520| 65 61 6b 0d 09 09 73 65 | 74 20 69 6e 64 20 5b 6c |eak...se|t ind [l|
|00002530| 73 65 61 72 63 68 20 2d | 72 65 67 65 78 70 20 5b |search -|regexp [|
|00002540| 6c 69 6e 64 65 78 20 5b | 67 65 74 54 4d 61 72 6b |lindex [|getTMark|
|00002550| 73 5d 20 30 5d 20 22 66 | 69 6c 74 65 72 4c 65 6e |s] 0] "f|ilterLen|
|00002560| 64 2e 2a 22 5d 0d 09 09 | 73 65 74 20 66 69 6e 69 |d.*"]...|set fini|
|00002570| 73 68 20 5b 6c 69 6e 64 | 65 78 20 5b 6c 69 6e 64 |sh [lind|ex [lind|
|00002580| 65 78 20 5b 6c 69 6e 64 | 65 78 20 5b 67 65 74 54 |ex [lind|ex [getT|
|00002590| 4d 61 72 6b 73 5d 20 30 | 5d 20 24 69 6e 64 5d 20 |Marks] 0|] $ind] |
|000025a0| 32 5d 0d 09 09 67 6f 74 | 6f 54 4d 61 72 6b 20 22 |2]...got|oTMark "|
|000025b0| 66 69 6c 74 65 72 4c 6e | 65 78 74 22 0d 09 09 73 |filterLn|ext"...s|
|000025c0| 65 74 20 70 6f 73 20 5b | 24 75 6e 69 74 53 74 61 |et pos [|$unitSta|
|000025d0| 72 74 20 5b 67 65 74 50 | 6f 73 5d 5d 0d 09 09 73 |rt [getP|os]]...s|
|000025e0| 65 74 20 6e 65 78 74 20 | 5b 24 75 6e 69 74 45 6e |et next |[$unitEn|
|000025f0| 64 20 24 70 6f 73 5d 0d | 09 7d 0d 09 72 65 6d 6f |d $pos].|.}..remo|
|00002600| 76 65 54 4d 61 72 6b 20 | 22 66 69 6c 74 65 72 4c |veTMark |"filterL|
|00002610| 65 6e 64 22 0d 09 72 65 | 6d 6f 76 65 54 4d 61 72 |end"..re|moveTMar|
|00002620| 6b 20 22 66 69 6c 74 65 | 72 4c 6e 65 78 74 22 0d |k "filte|rLnext".|
|00002630| 7d 0d 0d 0d 70 72 6f 63 | 20 66 69 6c 74 65 72 50 |}...proc| filterP|
|00002640| 61 72 61 67 72 61 70 68 | 73 20 7b 7b 63 6d 64 20 |aragraph|s {{cmd |
|00002650| 30 7d 7d 20 7b 20 66 69 | 6c 74 65 72 4c 69 6e 65 |0}} { fi|lterLine|
|00002660| 73 20 24 63 6d 64 20 31 | 20 7d 0d 0d 23 20 57 41 |s $cmd 1| }..# WA|
|00002670| 52 4e 49 4e 47 3a 20 64 | 65 73 65 6c 65 63 74 69 |RNING: d|eselecti|
|00002680| 6e 67 20 73 65 74 73 20 | 74 68 65 20 6d 61 72 6b |ng sets |the mark|
|00002690| 20 74 6f 20 73 65 6c 45 | 6e 64 0d 70 72 6f 63 20 | to selE|nd.proc |
|000026a0| 73 6f 72 74 50 61 72 61 | 67 72 61 70 68 73 20 7b |sortPara|graphs {|
|000026b0| 7b 66 72 6f 6d 20 2d 31 | 7d 20 7b 74 6f 20 2d 31 |{from -1|} {to -1|
|000026c0| 7d 7d 20 7b 0d 09 69 66 | 20 7b 28 24 66 72 6f 6d |}} {..if| {($from|
|000026d0| 20 3c 20 30 29 20 7c 7c | 20 28 24 74 6f 20 3c 20 | < 0) ||| ($to < |
|000026e0| 30 29 7d 20 7b 09 73 65 | 74 20 66 72 6f 6d 20 5b |0)} {.se|t from [|
|000026f0| 67 65 74 50 6f 73 5d 20 | 3b 20 73 65 74 20 74 6f |getPos] |; set to|
|00002700| 20 5b 73 65 6c 45 6e 64 | 5d 20 7d 0d 09 69 66 20 | [selEnd|] }..if |
|00002710| 7b 24 66 72 6f 6d 20 3e | 3d 20 24 74 6f 7d 20 72 |{$from >|= $to} r|
|00002720| 65 74 75 72 6e 0d 09 6a | 6f 69 6e 52 65 67 69 6f |eturn..j|oinRegio|
|00002730| 6e 20 7b 24 66 72 6f 6d | 20 24 74 6f 7d 0d 09 73 |n {$from| $to}..s|
|00002740| 65 6c 65 63 74 20 5b 67 | 65 74 50 6f 73 5d 20 5b |elect [g|etPos] [|
|00002750| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 5b 67 |nextLine|Start [g|
|00002760| 65 74 4d 61 72 6b 5d 5d | 0d 09 73 6f 72 74 4c 69 |etMark]]|..sortLi|
|00002770| 6e 65 73 0d 09 73 65 6c | 65 63 74 20 5b 67 65 74 |nes..sel|ect [get|
|00002780| 50 6f 73 5d 20 5b 67 65 | 74 50 6f 73 5d 0d 09 72 |Pos] [ge|tPos]..r|
|00002790| 65 67 73 75 62 49 6e 52 | 65 67 69 6f 6e 20 5b 67 |egsubInR|egion [g|
|000027a0| 65 74 50 6f 73 5d 20 5b | 67 65 74 4d 61 72 6b 5d |etPos] [|getMark]|
|000027b0| 20 22 5c 72 22 20 22 5c | 72 5c 72 22 20 0d 09 77 | "\r" "\|r\r" ..w|
|000027c0| 72 61 70 52 65 67 69 6f | 6e 0d 7d 0d 0d 23 0d 23 |rapRegio|n.}..#.#|
|000027d0| 20 53 61 6d 70 6c 65 0d | 23 0d 70 72 6f 63 20 66 | Sample.|#.proc f|
|000027e0| 69 6c 74 65 72 52 65 67 | 69 6f 6e 20 7b 7b 66 72 |ilterReg|ion {{fr|
|000027f0| 6f 6d 20 2d 31 7d 20 7b | 74 6f 20 2d 31 7d 20 7b |om -1} {|to -1} {|
|00002800| 63 6d 64 20 30 7d 20 7b | 6e 65 77 77 69 6e 20 30 |cmd 0} {|newwin 0|
|00002810| 7d 7d 20 7b 0d 09 69 66 | 20 7b 24 63 6d 64 20 3d |}} {..if| {$cmd =|
|00002820| 3d 20 30 7d 20 7b 0d 09 | 20 20 69 66 20 7b 5b 63 |= 0} {..|  if {[c|
|00002830| 61 74 63 68 20 7b 20 70 | 72 6f 6d 70 74 20 22 45 |atch { p|rompt "E|
|00002840| 76 61 6c 20 63 6f 6d 6d | 61 6e 64 3a 20 22 20 22 |val comm|and: " "|
|00002850| 22 20 7d 20 63 6d 64 5d | 7d 20 7b 20 72 65 74 75 |" } cmd]|} { retu|
|00002860| 72 6e 20 7d 0d 09 7d 0d | 09 69 66 20 7b 21 5b 73 |rn }..}.|.if {![s|
|00002870| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 63 6d |tring le|ngth $cm|
|00002880| 64 5d 7d 20 72 65 74 75 | 72 6e 0d 09 69 66 20 7b |d]} retu|rn..if {|
|00002890| 28 24 66 72 6f 6d 20 3c | 20 30 29 20 7c 7c 20 28 |($from <| 0) || (|
|000028a0| 24 74 6f 20 3c 20 30 29 | 7d 20 7b 09 73 65 74 20 |$to < 0)|} {.set |
|000028b0| 66 72 6f 6d 20 5b 67 65 | 74 50 6f 73 5d 20 3b 20 |from [ge|tPos] ; |
|000028c0| 73 65 74 20 74 6f 20 5b | 73 65 6c 45 6e 64 5d 20 |set to [|selEnd] |
|000028d0| 7d 0d 09 69 66 20 7b 24 | 66 72 6f 6d 20 3e 3d 20 |}..if {$|from >= |
|000028e0| 24 74 6f 7d 20 72 65 74 | 75 72 6e 0d 09 73 65 74 |$to} ret|urn..set|
|000028f0| 20 70 6f 73 20 5b 67 65 | 74 50 6f 73 5d 0d 09 73 | pos [ge|tPos]..s|
|00002900| 65 74 20 74 65 78 74 20 | 5b 67 65 74 54 65 78 74 |et text |[getText|
|00002910| 20 24 66 72 6f 6d 20 24 | 74 6f 5d 0d 09 73 65 74 | $from $|to]..set|
|00002920| 20 74 65 78 74 20 5b 24 | 63 6d 64 20 24 74 65 78 | text [$|cmd $tex|
|00002930| 74 5d 0d 09 72 65 70 6c | 61 63 65 54 65 78 74 20 |t]..repl|aceText |
|00002940| 24 66 72 6f 6d 20 24 74 | 6f 20 24 74 65 78 74 20 |$from $t|o $text |
|00002950| 22 5c 72 22 0d 09 67 6f | 74 6f 20 24 70 6f 73 0d |"\r"..go|to $pos.|
|00002960| 7d 0d 0d 0d 23 0d 73 65 | 74 20 6c 61 73 74 45 76 |}...#.se|t lastEv|
|00002970| 61 6c 65 64 20 22 22 0d | 70 72 6f 63 20 65 76 61 |aled "".|proc eva|
|00002980| 6c 75 61 74 65 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |luate {}| {..glob|
|00002990| 61 6c 20 6c 61 73 74 45 | 76 61 6c 65 64 0d 09 69 |al lastE|valed..i|
|000029a0| 66 20 7b 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |f {[stri|ng lengt|
|000029b0| 68 20 24 6c 61 73 74 45 | 76 61 6c 65 64 5d 7d 20 |h $lastE|valed]} |
|000029c0| 7b 0d 09 09 73 65 74 20 | 70 20 22 4d 2d 78 20 28 |{...set |p "M-x (|
|000029d0| 24 6c 61 73 74 45 76 61 | 6c 65 64 29 3a 20 22 0d |$lastEva|led): ".|
|000029e0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 20 |.} else |{...set |
|000029f0| 70 20 22 4d 2d 78 3a 20 | 22 0d 09 7d 0d 09 69 66 |p "M-x: |"..}..if|
|00002a00| 20 7b 5b 63 61 74 63 68 | 20 7b 73 74 61 74 75 73 | {[catch| {status|
|00002a10| 50 72 6f 6d 70 74 20 24 | 70 7d 20 74 65 78 74 5d |Prompt $|p} text]|
|00002a20| 7d 20 7b 72 65 74 75 72 | 6e 7d 0d 09 69 66 20 7b |} {retur|n}..if {|
|00002a30| 21 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 |![string| length |
|00002a40| 24 74 65 78 74 5d 7d 20 | 7b 73 65 74 20 74 65 78 |$text]} |{set tex|
|00002a50| 74 20 24 6c 61 73 74 45 | 76 61 6c 65 64 7d 0d 09 |t $lastE|valed}..|
|00002a60| 24 74 65 78 74 0d 09 73 | 65 74 20 6c 61 73 74 45 |$text..s|et lastE|
|00002a70| 76 61 6c 65 64 20 24 74 | 65 78 74 0d 7d 0d 0d 0d |valed $t|ext.}...|
|00002a80| 23 20 46 69 72 73 74 2c | 20 64 65 66 69 6e 65 20 |# First,| define |
|00002a90| 6d 61 63 72 6f 73 20 74 | 6f 20 62 79 70 61 73 73 |macros t|o bypass|
|00002aa0| 20 74 68 65 20 65 6c 65 | 63 74 72 69 63 20 62 72 | the ele|ctric br|
|00002ab0| 61 63 65 73 2e 0d 70 72 | 6f 63 20 6f 72 64 4c 65 |aces..pr|oc ordLe|
|00002ac0| 66 74 42 72 61 63 65 20 | 7b 7d 20 7b 0d 09 69 6e |ftBrace |{} {..in|
|00002ad0| 73 65 72 74 54 65 78 74 | 20 22 09 09 5c 7b 22 0d |sertText| "..\{".|
|00002ae0| 7d 0d 62 69 6e 64 20 7b | 27 5b 27 7d 20 3c 63 73 |}.bind {|'['} <cs|
|00002af0| 3e 20 6f 72 64 4c 65 66 | 74 42 72 61 63 65 0d 0d |> ordLef|tBrace..|
|00002b00| 70 72 6f 63 20 6f 72 64 | 52 69 67 68 74 42 72 61 |proc ord|RightBra|
|00002b10| 63 65 20 7b 7d 20 7b 0d | 09 69 6e 73 65 72 74 54 |ce {} {.|.insertT|
|00002b20| 65 78 74 20 22 5c 7d 22 | 0d 09 62 6c 69 6e 6b 20 |ext "\}"|..blink |
|00002b30| 5b 6d 61 74 63 68 49 74 | 20 22 5c 7d 22 20 5b 65 |[matchIt| "\}" [e|
|00002b40| 78 70 72 20 5b 67 65 74 | 50 6f 73 5d 2d 31 5d 5d |xpr [get|Pos]-1]]|
|00002b50| 0d 7d 0d 62 69 6e 64 20 | 7b 27 5d 27 7d 20 3c 63 |.}.bind |{']'} <c|
|00002b60| 73 3e 20 6f 72 64 52 69 | 67 68 74 42 72 61 63 65 |s> ordRi|ghtBrace|
|00002b70| 0d 09 0d 70 72 6f 63 20 | 71 75 6f 74 65 57 6f 72 |...proc |quoteWor|
|00002b80| 64 20 7b 7d 20 7b 0d 09 | 62 61 63 6b 77 61 72 64 |d {} {..|backward|
|00002b90| 57 6f 72 64 0d 09 69 6e | 73 65 72 74 54 65 78 74 |Word..in|sertText|
|00002ba0| 20 22 27 22 0d 09 66 6f | 72 77 61 72 64 57 6f 72 | "'"..fo|rwardWor|
|00002bb0| 64 0d 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 27 |d..inser|tText "'|
|00002bc0| 22 0d 7d 0d 62 69 6e 64 | 20 27 27 27 20 3c 7a 3e |".}.bind| ''' <z>|
|00002bd0| 20 71 75 6f 74 65 57 6f | 72 64 0d 0d 23 3d 3d 3d | quoteWo|rd..#===|
|00002be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 0d 70 |========|=====..p|
|00002c30| 72 6f 63 20 74 6f 6d 61 | 63 20 7b 66 6e 61 6d 65 |roc toma|c {fname|
|00002c40| 7d 20 7b 0d 09 73 65 74 | 20 66 64 20 5b 6f 70 65 |} {..set| fd [ope|
|00002c50| 6e 20 24 66 6e 61 6d 65 | 20 22 72 22 5d 0d 09 73 |n $fname| "r"]..s|
|00002c60| 65 74 20 74 65 78 74 20 | 5b 72 65 61 64 20 24 66 |et text |[read $f|
|00002c70| 64 5d 0d 09 63 6c 6f 73 | 65 20 24 66 64 0d 09 73 |d]..clos|e $fd..s|
|00002c80| 65 74 20 66 64 20 5b 6f | 70 65 6e 20 24 66 6e 61 |et fd [o|pen $fna|
|00002c90| 6d 65 20 22 77 22 5d 0d | 09 72 65 67 73 75 62 20 |me "w"].|.regsub |
|00002ca0| 22 5c 6e 22 20 24 74 65 | 78 74 20 22 5c 72 22 20 |"\n" $te|xt "\r" |
|00002cb0| 74 65 78 74 0d 09 70 75 | 74 73 20 2d 6e 6f 6e 65 |text..pu|ts -none|
|00002cc0| 77 6c 69 6e 65 20 24 66 | 64 20 24 74 65 78 74 0d |wline $f|d $text.|
|00002cd0| 09 63 6c 6f 73 65 20 24 | 66 64 0d 7d 0d 0d 70 72 |.close $|fd.}..pr|
|00002ce0| 6f 63 20 74 6f 75 6e 69 | 78 20 7b 66 6e 61 6d 65 |oc touni|x {fname|
|00002cf0| 7d 20 7b 0d 09 73 65 74 | 20 66 64 20 5b 6f 70 65 |} {..set| fd [ope|
|00002d00| 6e 20 24 66 6e 61 6d 65 | 20 22 72 22 5d 0d 09 73 |n $fname| "r"]..s|
|00002d10| 65 74 20 74 65 78 74 20 | 5b 72 65 61 64 20 24 66 |et text |[read $f|
|00002d20| 64 5d 0d 09 63 6c 6f 73 | 65 20 24 66 64 0d 09 73 |d]..clos|e $fd..s|
|00002d30| 65 74 20 66 64 20 5b 6f | 70 65 6e 20 24 66 6e 61 |et fd [o|pen $fna|
|00002d40| 6d 65 20 22 77 22 5d 0d | 09 72 65 67 73 75 62 20 |me "w"].|.regsub |
|00002d50| 22 5c 72 22 20 24 74 65 | 78 74 20 22 5c 6e 22 20 |"\r" $te|xt "\n" |
|00002d60| 74 65 78 74 0d 09 70 75 | 74 73 20 2d 6e 6f 6e 65 |text..pu|ts -none|
|00002d70| 77 6c 69 6e 65 20 24 66 | 64 20 24 74 65 78 74 0d |wline $f|d $text.|
|00002d80| 09 63 6c 6f 73 65 20 24 | 66 64 0d 7d 0d 0d 0d 70 |.close $|fd.}...p|
|00002d90| 72 6f 63 20 63 61 74 20 | 61 72 67 73 20 7b 0d 09 |roc cat |args {..|
|00002da0| 73 65 74 20 66 69 6c 65 | 73 20 22 22 0d 09 66 6f |set file|s ""..fo|
|00002db0| 72 65 61 63 68 20 61 20 | 24 61 72 67 73 20 7b 0d |reach a |$args {.|
|00002dc0| 09 09 66 6f 72 65 61 63 | 68 20 66 20 5b 67 6c 6f |..foreac|h f [glo|
|00002dd0| 62 20 24 61 5d 20 7b 0d | 09 09 09 6c 61 70 70 65 |b $a] {.|...lappe|
|00002de0| 6e 64 20 66 69 6c 65 73 | 20 24 66 0d 09 09 7d 0d |nd files| $f...}.|
|00002df0| 09 7d 0d 09 66 6f 72 65 | 61 63 68 20 66 20 24 66 |.}..fore|ach f $f|
|00002e00| 69 6c 65 73 20 7b 0d 09 | 09 61 70 70 65 6e 64 20 |iles {..|.append |
|00002e10| 74 65 78 74 20 22 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |text "==|========|
|00002e20| 3d 3d 3d 3d 3c 24 66 3e | 3d 3d 3d 3d 3d 3d 3d 3d |====<$f>|========|
|00002e30| 3d 3d 3d 3d 3d 3d 5c 72 | 22 0d 09 09 73 65 74 20 |======\r|"...set |
|00002e40| 66 64 20 5b 6f 70 65 6e | 20 24 66 20 22 72 22 5d |fd [open| $f "r"]|
|00002e50| 0d 09 09 61 70 70 65 6e | 64 20 74 65 78 74 20 22 |...appen|d text "|
|00002e60| 5b 72 65 61 64 20 24 66 | 64 5d 5c 72 5c 72 22 0d |[read $f|d]\r\r".|
|00002e70| 09 09 63 6c 6f 73 65 20 | 24 66 64 0d 09 7d 0d 09 |..close |$fd..}..|
|00002e80| 72 65 74 75 72 6e 20 24 | 74 65 78 74 0d 7d 0d 0d |return $|text.}..|
|00002e90| 70 72 6f 63 20 63 61 74 | 74 6f 20 61 72 67 73 20 |proc cat|to args |
|00002ea0| 7b 0d 09 73 65 74 20 6c | 65 6e 20 5b 6c 6c 65 6e |{..set l|en [llen|
|00002eb0| 67 74 68 20 24 61 72 67 | 73 5d 0d 09 73 65 74 20 |gth $arg|s]..set |
|00002ec0| 74 6f 20 5b 6c 69 6e 64 | 65 78 20 24 61 72 67 73 |to [lind|ex $args|
|00002ed0| 20 5b 65 78 70 72 20 24 | 6c 65 6e 20 2d 31 5d 5d | [expr $|len -1]]|
|00002ee0| 0d 09 73 65 74 20 61 72 | 67 73 20 5b 6c 72 61 6e |..set ar|gs [lran|
|00002ef0| 67 65 20 24 61 72 67 73 | 20 30 20 5b 65 78 70 72 |ge $args| 0 [expr|
|00002f00| 20 24 6c 65 6e 20 2d 32 | 5d 5d 0d 0d 09 73 65 74 | $len -2|]]...set|
|00002f10| 20 66 69 6c 65 73 20 22 | 22 0d 09 66 6f 72 65 61 | files "|"..forea|
|00002f20| 63 68 20 61 20 24 61 72 | 67 73 20 7b 0d 09 09 66 |ch a $ar|gs {...f|
|00002f30| 6f 72 65 61 63 68 20 66 | 20 5b 67 6c 6f 62 20 24 |oreach f| [glob $|
|00002f40| 61 5d 20 7b 0d 09 09 09 | 6c 61 70 70 65 6e 64 20 |a] {....|lappend |
|00002f50| 66 69 6c 65 73 20 24 66 | 0d 09 09 7d 0d 09 7d 0d |files $f|...}..}.|
|00002f60| 09 66 6f 72 65 61 63 68 | 20 66 20 24 66 69 6c 65 |.foreach| f $file|
|00002f70| 73 20 7b 0d 09 09 61 70 | 70 65 6e 64 20 74 65 78 |s {...ap|pend tex|
|00002f80| 74 20 22 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |t "=====|========|
|00002f90| 3d 3c 24 66 3e 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |=<$f>===|========|
|00002fa0| 3d 3d 3d 5c 72 22 0d 09 | 09 73 65 74 20 66 64 20 |===\r"..|.set fd |
|00002fb0| 5b 6f 70 65 6e 20 24 66 | 20 22 72 22 5d 0d 09 09 |[open $f| "r"]...|
|00002fc0| 61 70 70 65 6e 64 20 74 | 65 78 74 20 22 5b 72 65 |append t|ext "[re|
|00002fd0| 61 64 20 24 66 64 5d 5c | 72 5c 72 22 0d 09 09 63 |ad $fd]\|r\r"...c|
|00002fe0| 6c 6f 73 65 20 24 66 64 | 0d 09 7d 0d 0d 09 73 65 |lose $fd|..}...se|
|00002ff0| 74 20 64 66 69 6c 65 20 | 24 74 6f 0d 09 69 66 20 |t dfile |$to..if |
|00003000| 7b 5b 66 69 6c 65 20 65 | 78 69 73 74 73 20 24 64 |{[file e|xists $d|
|00003010| 66 69 6c 65 5d 7d 20 7b | 0d 09 09 73 65 74 20 66 |file]} {|...set f|
|00003020| 69 64 20 5b 6f 70 65 6e | 20 24 64 66 69 6c 65 20 |id [open| $dfile |
|00003030| 22 61 22 5d 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |"a"]..} |else {..|
|00003040| 09 73 65 74 20 66 69 64 | 20 5b 6f 70 65 6e 20 24 |.set fid| [open $|
|00003050| 64 66 69 6c 65 20 22 77 | 22 5d 0d 09 7d 0d 09 70 |dfile "w|"]..}..p|
|00003060| 75 74 73 20 24 66 69 64 | 20 24 74 65 78 74 0d 09 |uts $fid| $text..|
|00003070| 63 6c 6f 73 65 20 24 66 | 69 64 0d 7d 0d 0d 0d 23 |close $f|id.}...#|
|00003080| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00003090| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000030c0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 0d 23 20 |########|#####.# |
|000030d0| 20 54 6f 20 62 65 20 75 | 73 65 64 20 69 6e 20 74 | To be u|sed in t|
|000030e0| 68 65 20 77 69 6e 64 6f | 77 73 20 63 72 65 61 74 |he windo|ws creat|
|000030f0| 65 64 20 62 79 20 22 6d | 61 74 63 68 69 6e 67 4c |ed by "m|atchingL|
|00003100| 69 6e 65 73 22 20 6f 72 | 20 62 79 20 62 61 74 63 |ines" or| by batc|
|00003110| 68 20 73 65 61 72 63 68 | 65 73 2e 0d 23 0d 23 20 |h search|es..#.# |
|00003120| 20 57 69 74 68 20 74 68 | 65 20 63 75 72 73 6f 72 | With th|e cursor|
|00003130| 20 70 6f 73 69 74 69 6f | 6e 65 64 20 69 6e 20 61 | positio|ned in a|
|00003140| 20 6c 69 6e 65 20 63 6f | 72 72 73 70 6f 6e 64 69 | line co|rrspondi|
|00003150| 6e 67 20 74 6f 20 61 20 | 6d 61 74 63 68 2c 20 0d |ng to a |match, .|
|00003160| 23 20 20 67 6f 20 62 61 | 63 6b 20 61 6e 64 20 73 |#  go ba|ck and s|
|00003170| 65 6c 65 63 74 20 74 68 | 65 20 6c 69 6e 65 20 69 |elect th|e line i|
|00003180| 6e 20 74 68 65 20 6f 72 | 69 67 69 6e 61 6c 20 66 |n the or|iginal f|
|00003190| 69 6c 65 20 74 68 61 74 | 20 0d 23 20 20 67 65 6e |ile that| .#  gen|
|000031a0| 65 72 61 74 65 64 20 74 | 68 69 73 20 6d 61 74 63 |erated t|his matc|
|000031b0| 68 2e 20 20 28 4c 69 6b | 65 20 65 6d 61 63 73 20 |h.  (Lik|e emacs |
|000031c0| 27 4f 63 63 75 72 27 20 | 66 75 6e 63 74 69 6f 6e |'Occur' |function|
|000031d0| 61 6c 69 74 79 29 0d 23 | 0d 70 72 6f 63 20 67 6f |ality).#|.proc go|
|000031e0| 74 6f 4d 61 74 63 68 20 | 7b 7d 20 7b 0d 09 73 65 |toMatch |{} {..se|
|000031f0| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|00003200| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |[lineSta|rt [getP|
|00003210| 6f 73 5d 5d 20 5b 65 78 | 70 72 20 5b 6e 65 78 74 |os]] [ex|pr [next|
|00003220| 4c 69 6e 65 53 74 61 72 | 74 20 5b 67 65 74 50 6f |LineStar|t [getPo|
|00003230| 73 5d 5d 20 2d 20 31 5d | 5d 0d 09 73 65 74 20 69 |s]] - 1]|]..set i|
|00003240| 6e 64 31 20 5b 73 74 72 | 69 6e 67 20 66 69 72 73 |nd1 [str|ing firs|
|00003250| 74 20 22 b0 22 20 24 74 | 65 78 74 5d 0d 09 73 65 |t "." $t|ext]..se|
|00003260| 74 20 69 6e 64 32 20 5b | 73 74 72 69 6e 67 20 6c |t ind2 [|string l|
|00003270| 61 73 74 20 22 b0 22 20 | 24 74 65 78 74 5d 0d 09 |ast "." |$text]..|
|00003280| 69 66 20 7b 24 69 6e 64 | 31 20 3d 3d 20 24 69 6e |if {$ind|1 == $in|
|00003290| 64 32 7d 20 7b 0d 09 09 | 73 65 74 20 66 6e 61 6d |d2} {...|set fnam|
|000032a0| 65 20 5b 73 74 72 69 6e | 67 20 74 72 69 6d 20 5b |e [strin|g trim [|
|000032b0| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 74 65 |string r|ange $te|
|000032c0| 78 74 20 24 69 6e 64 31 | 20 65 6e 64 5d 20 7b b0 |xt $ind1| end] {.|
|000032d0| 7d 5d 0d 09 09 73 65 74 | 20 6d 73 67 20 22 22 0d |}]...set| msg "".|
|000032e0| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 20 |.} else |{...set |
|000032f0| 66 6e 61 6d 65 20 5b 73 | 74 72 69 6e 67 20 74 72 |fname [s|tring tr|
|00003300| 69 6d 20 5b 73 74 72 69 | 6e 67 20 72 61 6e 67 65 |im [stri|ng range|
|00003310| 20 24 74 65 78 74 20 24 | 69 6e 64 31 20 24 69 6e | $text $|ind1 $in|
|00003320| 64 32 5d 20 7b b0 7d 5d | 0d 09 09 73 65 74 20 6d |d2] {.}]|...set m|
|00003330| 73 67 20 5b 73 74 72 69 | 6e 67 20 74 72 69 6d 20 |sg [stri|ng trim |
|00003340| 5b 73 74 72 69 6e 67 20 | 72 61 6e 67 65 20 24 74 |[string |range $t|
|00003350| 65 78 74 20 24 69 6e 64 | 32 20 65 6e 64 5d 20 7b |ext $ind|2 end] {|
|00003360| b0 7d 5d 0d 09 7d 0d 09 | 69 66 20 7b 5b 65 78 70 |.}]..}..|if {[exp|
|00003370| 72 20 7b 5b 6c 73 65 61 | 72 63 68 20 5b 77 69 6e |r {[lsea|rch [win|
|00003380| 4e 61 6d 65 73 20 2d 66 | 5d 20 22 2a 24 66 6e 61 |Names -f|] "*$fna|
|00003390| 6d 65 22 5d 20 3e 3d 20 | 30 7d 5d 7d 20 7b 0d 09 |me"] >= |0}]} {..|
|000033a0| 09 62 72 69 6e 67 54 6f | 46 72 6f 6e 74 20 24 66 |.bringTo|Front $f|
|000033b0| 6e 61 6d 65 0d 09 7d 20 | 65 6c 73 65 69 66 20 7b |name..} |elseif {|
|000033c0| 5b 66 69 6c 65 20 65 78 | 69 73 74 73 20 24 66 6e |[file ex|ists $fn|
|000033d0| 61 6d 65 5d 7d 20 7b 0d | 09 09 65 64 69 74 20 24 |ame]} {.|..edit $|
|000033e0| 66 6e 61 6d 65 0d 09 7d | 20 65 6c 73 65 20 7b 0d |fname..}| else {.|
|000033f0| 09 09 61 6c 65 72 74 6e | 6f 74 65 20 22 46 69 6c |..alertn|ote "Fil|
|00003400| 65 20 5c 22 20 24 66 6e | 61 6d 65 20 5c 22 20 6e |e \" $fn|ame \" n|
|00003410| 6f 74 20 66 6f 75 6e 64 | 2e 22 20 3b 20 72 65 74 |ot found|." ; ret|
|00003420| 75 72 6e 0d 09 7d 0d 09 | 69 66 20 7b 21 5b 72 65 |urn..}..|if {![re|
|00003430| 67 65 78 70 20 7b 4c 69 | 6e 65 20 28 5b 30 2d 39 |gexp {Li|ne ([0-9|
|00003440| 5d 2b 29 3a 7d 20 24 74 | 65 78 74 20 64 75 6d 6d |]+):} $t|ext dumm|
|00003450| 79 20 6c 69 6e 65 5d 7d | 20 7b 20 65 72 72 6f 72 |y line]}| { error|
|00003460| 20 22 47 61 72 62 61 67 | 65 22 20 7d 0d 20 20 20 | "Garbag|e" }.   |
|00003470| 20 67 6f 74 6f 20 5b 72 | 6f 77 43 6f 6c 54 6f 50 | goto [r|owColToP|
|00003480| 6f 73 20 24 6c 69 6e 65 | 20 30 5d 0d 09 6d 65 73 |os $line| 0]..mes|
|00003490| 73 61 67 65 20 24 6d 73 | 67 0d 7d 0d 62 69 6e 64 |sage $ms|g.}.bind|
|000034a0| 20 27 63 27 20 3c 43 7a | 3e 09 09 67 6f 74 6f 4d | 'c' <Cz|>..gotoM|
|000034b0| 61 74 63 68 0d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |atch...#|========|
|000034c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000034f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003500| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 70 72 6f 63 20 70 |========|..proc p|
|00003510| 72 65 76 49 6e 74 72 6f | 20 7b 7d 20 7b 0d 09 73 |revIntro| {} {..s|
|00003520| 65 74 20 72 65 73 20 5b | 73 65 61 72 63 68 20 2d |et res [|search -|
|00003530| 66 20 30 20 2d 72 20 30 | 20 7b 3d 3d 20 7d 20 5b |f 0 -r 0| {== } [|
|00003540| 67 65 74 50 6f 73 5d 5d | 0d 09 64 69 73 70 6c 61 |getPos]]|..displa|
|00003550| 79 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 5b 65 78 |y [lineS|tart [ex|
|00003560| 70 72 20 5b 6c 69 6e 65 | 53 74 61 72 74 20 5b 6c |pr [line|Start [l|
|00003570| 69 6e 64 65 78 20 24 72 | 65 73 20 30 5d 5d 20 2d |index $r|es 0]] -|
|00003580| 20 31 5d 5d 0d 7d 0d 0d | 70 72 6f 63 20 6e 65 78 | 1]].}..|proc nex|
|00003590| 74 49 6e 74 72 6f 20 7b | 7d 20 7b 0d 09 73 65 74 |tIntro {|} {..set|
|000035a0| 20 72 65 73 20 5b 73 65 | 61 72 63 68 20 2d 66 20 | res [se|arch -f |
|000035b0| 31 20 2d 72 20 30 20 7b | 3d 3d 20 7d 20 5b 67 65 |1 -r 0 {|== } [ge|
|000035c0| 74 50 6f 73 5d 5d 0d 09 | 73 65 74 20 72 65 73 20 |tPos]]..|set res |
|000035d0| 5b 6c 69 6e 64 65 78 20 | 24 72 65 73 20 31 5d 0d |[lindex |$res 1].|
|000035e0| 09 73 65 74 20 72 65 73 | 20 5b 73 65 61 72 63 68 |.set res| [search|
|000035f0| 20 2d 66 20 31 20 2d 72 | 20 30 20 7b 3d 3d 20 7d | -f 1 -r| 0 {== }|
|00003600| 20 24 72 65 73 5d 0d 09 | 64 69 73 70 6c 61 79 20 | $res]..|display |
|00003610| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 65 78 70 72 |[lineSta|rt [expr|
|00003620| 20 5b 6c 69 6e 65 53 74 | 61 72 74 20 5b 6c 69 6e | [lineSt|art [lin|
|00003630| 64 65 78 20 24 72 65 73 | 20 30 5d 5d 20 2d 20 31 |dex $res| 0]] - 1|
|00003640| 5d 5d 0d 7d 0d 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |]].}..#=|========|
|00003650| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003660| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003670| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003680| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003690| 3d 3d 3d 3d 3d 3d 3d 0d | 0d 70 72 6f 63 20 73 65 |=======.|.proc se|
|000036a0| 61 72 63 68 53 74 61 72 | 74 20 7b 7d 20 7b 0d 09 |archStar|t {} {..|
|000036b0| 67 6c 6f 62 61 6c 20 73 | 65 61 72 63 68 5f 73 74 |global s|earch_st|
|000036c0| 61 72 74 0d 09 73 65 6c | 65 63 74 20 5b 67 65 74 |art..sel|ect [get|
|000036d0| 50 6f 73 5d 0d 09 73 65 | 74 4d 61 72 6b 0d 09 69 |Pos]..se|tMark..i|
|000036e0| 66 20 7b 5b 63 61 74 63 | 68 20 7b 67 6f 74 6f 20 |f {[catc|h {goto |
|000036f0| 24 73 65 61 72 63 68 5f | 73 74 61 72 74 7d 5d 7d |$search_|start}]}|
|00003700| 20 7b 6d 65 73 73 61 67 | 65 20 22 4e 6f 20 70 72 | {messag|e "No pr|
|00003710| 65 76 69 6f 75 73 20 73 | 65 61 72 63 68 22 7d 0d |evious s|earch"}.|
|00003720| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00003730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003770| 3d 3d 3d 3d 0d 0d 0d 70 | 72 6f 63 20 6c 69 73 74 |====...p|roc list|
|00003780| 42 69 6e 64 69 6e 67 73 | 20 7b 7d 20 7b 0d 09 6e |Bindings| {} {..n|
|00003790| 65 77 20 2d 6e 20 7b 2a | 20 4b 65 79 20 42 69 6e |ew -n {*| Key Bin|
|000037a0| 64 69 6e 67 73 20 2a 7d | 0d 09 69 6e 73 65 72 74 |dings *}|..insert|
|000037b0| 54 65 78 74 20 5b 62 69 | 6e 64 69 6e 67 4c 69 73 |Text [bi|ndingLis|
|000037c0| 74 5d 0d 0d 09 67 6c 6f | 62 61 6c 20 69 6e 66 6f |t]...glo|bal info|
|000037d0| 57 69 6e 64 6f 77 73 44 | 69 72 74 79 0d 09 69 66 |WindowsD|irty..if|
|000037e0| 20 7b 21 24 69 6e 66 6f | 57 69 6e 64 6f 77 73 44 | {!$info|WindowsD|
|000037f0| 69 72 74 79 7d 20 7b 73 | 65 74 57 69 6e 49 6e 66 |irty} {s|etWinInf|
|00003800| 6f 20 64 69 72 74 79 20 | 30 7d 0d 7d 0d 0d 0d 23 |o dirty |0}.}...#|
|00003810| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003820| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003830| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003840| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003850| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003860| 0d 0d 70 72 6f 63 20 70 | 72 69 6e 74 41 72 72 61 |..proc p|rintArra|
|00003870| 79 20 7b 61 72 72 7d 20 | 7b 0d 09 67 6c 6f 62 61 |y {arr} |{..globa|
|00003880| 6c 20 24 61 72 72 0d 09 | 09 66 6f 72 65 61 63 68 |l $arr..|.foreach|
|00003890| 20 6e 20 5b 61 72 72 61 | 79 20 6e 61 6d 65 73 20 | n [arra|y names |
|000038a0| 24 61 72 72 5d 20 7b 0d | 09 09 61 70 70 65 6e 64 |$arr] {.|..append|
|000038b0| 20 74 65 78 74 20 22 24 | 6e 20 27 5b 73 65 74 20 | text "$|n '[set |
|000038c0| 24 7b 61 72 72 7d 28 24 | 6e 29 5d 27 5c 72 22 0d |${arr}($|n)]'\r".|
|000038d0| 09 7d 0d 09 72 65 74 75 | 72 6e 20 5b 73 74 72 69 |.}..retu|rn [stri|
|000038e0| 6e 67 20 74 72 69 6d 20 | 24 74 65 78 74 20 22 5c |ng trim |$text "\|
|000038f0| 72 22 5d 0d 7d 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |r"].}..#|========|
|00003900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003940| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 0d 70 72 6f 63 20 |========|...proc |
|00003950| 64 6f 41 54 61 62 20 7b | 7d 20 7b 0d 09 67 6c 6f |doATab {|} {..glo|
|00003960| 62 61 6c 20 65 6c 65 63 | 74 72 69 63 54 61 62 0d |bal elec|tricTab.|
|00003970| 09 69 66 20 7b 21 24 65 | 6c 65 63 74 72 69 63 54 |.if {!$e|lectricT|
|00003980| 61 62 20 7c 7c 20 5b 72 | 65 67 65 78 70 20 7b 5b |ab || [r|egexp {[|
|00003990| 5e 20 5c 74 5d 7d 20 5b | 67 65 74 54 65 78 74 20 |^ \t]} [|getText |
|000039a0| 5b 6c 69 6e 65 53 74 61 | 72 74 20 5b 67 65 74 50 |[lineSta|rt [getP|
|000039b0| 6f 73 5d 5d 20 5b 67 65 | 74 50 6f 73 5d 5d 5d 7d |os]] [ge|tPos]]]}|
|000039c0| 20 7b 0d 20 20 20 20 09 | 69 66 20 7b 5b 67 65 74 | {.    .|if {[get|
|000039d0| 50 6f 73 5d 20 21 3d 20 | 5b 73 65 6c 45 6e 64 5d |Pos] != |[selEnd]|
|000039e0| 7d 20 7b 0d 20 20 20 20 | 09 09 72 65 70 6c 61 63 |} {.    |..replac|
|000039f0| 65 54 65 78 74 20 5b 67 | 65 74 50 6f 73 5d 20 5b |eText [g|etPos] [|
|00003a00| 73 65 6c 45 6e 64 5d 20 | 22 5c 74 22 0d 20 20 20 |selEnd] |"\t".   |
|00003a10| 20 09 7d 20 65 6c 73 65 | 20 7b 0d 20 20 20 20 09 | .} else| {.    .|
|00003a20| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 5c 74 22 |.insertT|ext "\t"|
|00003a30| 0d 20 20 20 20 09 7d 0d | 09 7d 20 65 6c 73 65 20 |.    .}.|.} else |
|00003a40| 7b 0d 09 09 69 6e 64 65 | 6e 74 4c 69 6e 65 0d 09 |{...inde|ntLine..|
|00003a50| 7d 0d 7d 0d 0d 23 20 09 | 73 65 74 20 70 74 65 78 |}.}..# .|set ptex|
|00003a60| 74 20 5b 67 65 74 54 65 | 78 74 20 5b 6c 69 6e 64 |t [getTe|xt [lind|
|00003a70| 65 78 20 24 6c 73 74 20 | 30 5d 20 5b 6e 65 78 74 |ex $lst |0] [next|
|00003a80| 4c 69 6e 65 53 74 61 72 | 74 20 5b 6c 69 6e 64 65 |LineStar|t [linde|
|00003a90| 78 20 24 6c 73 74 20 30 | 5d 5d 5d 0d 23 20 09 72 |x $lst 0|]]].# .r|
|00003aa0| 65 67 73 75 62 20 2d 61 | 6c 6c 20 7b 5b 5e 28 5d |egsub -a|ll {[^(]|
|00003ab0| 7d 20 24 70 74 65 78 74 | 20 7b 7d 20 6f 6e 65 0d |} $ptext| {} one.|
|00003ac0| 23 20 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 7b |# .regsu|b -all {|
|00003ad0| 5b 5e 29 5d 7d 20 24 70 | 74 65 78 74 20 7b 7d 20 |[^)]} $p|text {} |
|00003ae0| 74 77 6f 0d 23 20 09 69 | 66 20 7b 5b 73 74 72 69 |two.# .i|f {[stri|
|00003af0| 6e 67 20 6c 65 6e 67 74 | 68 20 24 6f 6e 65 5d 20 |ng lengt|h $one] |
|00003b00| 3e 20 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |> [strin|g length|
|00003b10| 20 24 74 77 6f 5d 7d 20 | 7b 0d 23 20 09 09 72 65 | $two]} |{.# ..re|
|00003b20| 67 65 78 70 20 7b 5b 5e | 28 5d 2a 5c 28 7d 20 24 |gexp {[^|(]*\(} $|
|00003b30| 70 74 65 78 74 20 62 6c | 61 68 0d 23 20 09 09 72 |ptext bl|ah.# ..r|
|00003b40| 65 67 73 75 62 20 2d 61 | 6c 6c 20 7b 5b 5e 09 5d |egsub -a|ll {[^.]|
|00003b50| 7d 20 24 62 6c 61 68 20 | 7b 20 7d 20 6c 77 68 69 |} $blah |{ } lwhi|
|00003b60| 74 65 0d 23 20 09 7d 20 | 65 6c 73 65 69 66 20 7b |te.# .} |elseif {|
|00003b70| 28 24 6e 65 78 74 43 20 | 3d 3d 20 22 5c 7b 22 29 |($nextC |== "\{")|
|00003b80| 7d 20 7b 0d 23 20 09 09 | 61 70 70 65 6e 64 20 6c |} {.# ..|append l|
|00003b90| 77 68 69 74 65 20 22 5c | 74 22 0d 23 20 09 7d 0d |white "\|t".# .}.|
|00003ba0| 0d 70 72 6f 63 20 69 6e | 64 65 6e 74 4c 69 6e 65 |.proc in|dentLine|
|00003bb0| 20 7b 7d 20 7b 0d 09 73 | 65 74 20 62 65 67 20 5b | {} {..s|et beg [|
|00003bc0| 6c 69 6e 65 53 74 61 72 | 74 20 5b 67 65 74 50 6f |lineStar|t [getPo|
|00003bd0| 73 5d 5d 0d 0d 09 73 65 | 74 20 6c 73 74 20 5b 73 |s]]...se|t lst [s|
|00003be0| 65 61 72 63 68 20 2d 73 | 20 2d 66 20 30 20 2d 72 |earch -s| -f 0 -r|
|00003bf0| 20 31 20 2d 69 20 30 20 | 7b 5e 5b 20 5c 74 5d 2a | 1 -i 0 |{^[ \t]*|
|00003c00| 5b 5e 20 5c 74 5c 72 5d | 7d 20 5b 65 78 70 72 20 |[^ \t\r]|} [expr |
|00003c10| 24 62 65 67 2d 31 5d 5d | 0d 09 73 65 74 20 6c 77 |$beg-1]]|..set lw|
|00003c20| 68 69 74 65 20 5b 67 65 | 74 54 65 78 74 20 5b 6c |hite [ge|tText [l|
|00003c30| 69 6e 64 65 78 20 24 6c | 73 74 20 30 5d 20 5b 65 |index $l|st 0] [e|
|00003c40| 78 70 72 20 5b 6c 69 6e | 64 65 78 20 24 6c 73 74 |xpr [lin|dex $lst|
|00003c50| 20 31 5d 20 2d 20 31 5d | 5d 0d 09 73 65 74 20 6e | 1] - 1]|]..set n|
|00003c60| 65 78 74 43 20 5b 6c 6f | 6f 6b 41 74 20 5b 65 78 |extC [lo|okAt [ex|
|00003c70| 70 72 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |pr [next|LineStar|
|00003c80| 74 20 5b 6c 69 6e 64 65 | 78 20 24 6c 73 74 20 31 |t [linde|x $lst 1|
|00003c90| 5d 5d 20 2d 20 32 5d 5d | 0d 0d 09 69 66 20 7b 28 |]] - 2]]|...if {(|
|00003ca0| 24 6e 65 78 74 43 20 3d | 3d 20 22 5c 7b 22 29 7d |$nextC =|= "\{")}|
|00003cb0| 20 7b 0d 09 09 61 70 70 | 65 6e 64 20 6c 77 68 69 | {...app|end lwhi|
|00003cc0| 74 65 20 22 5c 74 22 0d | 09 7d 0d 09 73 65 74 20 |te "\t".|.}..set |
|00003cd0| 74 65 78 74 20 5b 67 65 | 74 54 65 78 74 20 24 62 |text [ge|tText $b|
|00003ce0| 65 67 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |eg [next|LineStar|
|00003cf0| 74 20 24 62 65 67 5d 5d | 0d 09 72 65 67 65 78 70 |t $beg]]|..regexp|
|00003d00| 20 7b 5e 5b 20 5c 74 5d | 2a 7d 20 24 74 65 78 74 | {^[ \t]|*} $text|
|00003d10| 20 77 68 69 74 65 0d 09 | 73 65 74 20 6c 65 6e 20 | white..|set len |
|00003d20| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00003d30| 77 68 69 74 65 5d 0d 09 | 73 65 74 20 6e 65 78 74 |white]..|set next|
|00003d40| 43 20 5b 6c 6f 6f 6b 41 | 74 20 5b 65 78 70 72 20 |C [lookA|t [expr |
|00003d50| 24 62 65 67 20 2b 20 24 | 6c 65 6e 5d 5d 0d 09 69 |$beg + $|len]]..i|
|00003d60| 66 20 7b 24 6e 65 78 74 | 43 20 3d 3d 20 22 5c 7d |f {$next|C == "\}|
|00003d70| 22 7d 20 7b 0d 09 09 73 | 65 74 20 6c 77 68 69 74 |"} {...s|et lwhit|
|00003d80| 65 20 5b 73 74 72 69 6e | 67 20 72 61 6e 67 65 20 |e [strin|g range |
|00003d90| 24 6c 77 68 69 74 65 20 | 30 20 5b 65 78 70 72 20 |$lwhite |0 [expr |
|00003da0| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00003db0| 6c 77 68 69 74 65 5d 20 | 2d 20 32 5d 5d 0d 09 7d |lwhite] |- 2]]..}|
|00003dc0| 0d 09 0d 09 69 66 20 7b | 24 77 68 69 74 65 20 21 |....if {|$white !|
|00003dd0| 3d 20 24 6c 77 68 69 74 | 65 7d 20 7b 0d 09 09 72 |= $lwhit|e} {...r|
|00003de0| 65 70 6c 61 63 65 54 65 | 78 74 20 24 62 65 67 20 |eplaceTe|xt $beg |
|00003df0| 5b 65 78 70 72 20 24 62 | 65 67 20 2b 20 24 6c 65 |[expr $b|eg + $le|
|00003e00| 6e 5d 20 24 6c 77 68 69 | 74 65 0d 09 7d 0d 09 67 |n] $lwhi|te..}..g|
|00003e10| 6f 74 6f 20 5b 65 78 70 | 72 20 24 62 65 67 20 2b |oto [exp|r $beg +|
|00003e20| 20 5b 73 74 72 69 6e 67 | 20 6c 65 6e 67 74 68 20 | [string| length |
|00003e30| 24 6c 77 68 69 74 65 5d | 5d 0d 7d 0d 0d 0d 70 72 |$lwhite]|].}...pr|
|00003e40| 6f 63 20 69 6e 64 65 6e | 74 52 65 67 69 6f 6e 20 |oc inden|tRegion |
|00003e50| 7b 7d 20 7b 0d 09 73 65 | 74 20 66 72 6f 6d 20 5b |{} {..se|t from [|
|00003e60| 6c 69 6e 64 65 78 20 5b | 70 6f 73 54 6f 52 6f 77 |lindex [|posToRow|
|00003e70| 43 6f 6c 20 5b 67 65 74 | 50 6f 73 5d 5d 20 30 5d |Col [get|Pos]] 0]|
|00003e80| 0d 09 73 65 74 20 74 6f | 20 5b 6c 69 6e 64 65 78 |..set to| [lindex|
|00003e90| 20 5b 70 6f 73 54 6f 52 | 6f 77 43 6f 6c 20 5b 73 | [posToR|owCol [s|
|00003ea0| 65 6c 45 6e 64 5d 5d 20 | 30 5d 0d 09 73 65 6c 65 |elEnd]] |0]..sele|
|00003eb0| 63 74 20 5b 67 65 74 50 | 6f 73 5d 0d 09 77 68 69 |ct [getP|os]..whi|
|00003ec0| 6c 65 20 7b 24 66 72 6f | 6d 20 3c 3d 20 24 74 6f |le {$fro|m <= $to|
|00003ed0| 7d 20 7b 0d 09 09 67 6f | 74 6f 20 5b 72 6f 77 43 |} {...go|to [rowC|
|00003ee0| 6f 6c 54 6f 50 6f 73 20 | 24 66 72 6f 6d 20 30 5d |olToPos |$from 0]|
|00003ef0| 0d 09 09 69 6e 64 65 6e | 74 4c 69 6e 65 0d 09 09 |...inden|tLine...|
|00003f00| 69 6e 63 72 20 66 72 6f | 6d 0d 09 7d 0d 7d 0d 0d |incr fro|m..}.}..|
|00003f10| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00003f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003f60| 3d 0d 0d 70 72 6f 63 20 | 73 50 72 6f 6d 70 74 20 |=..proc |sPrompt |
|00003f70| 7b 6d 73 67 20 64 65 66 | 7d 20 7b 0d 09 67 6c 6f |{msg def|} {..glo|
|00003f80| 62 61 6c 20 75 73 65 53 | 74 61 74 75 73 42 61 72 |bal useS|tatusBar|
|00003f90| 0d 09 69 66 20 7b 21 24 | 75 73 65 53 74 61 74 75 |..if {!$|useStatu|
|00003fa0| 73 42 61 72 7d 20 7b 72 | 65 74 75 72 6e 20 5b 70 |sBar} {r|eturn [p|
|00003fb0| 72 6f 6d 70 74 20 24 6d | 73 67 20 24 64 65 66 5d |rompt $m|sg $def]|
|00003fc0| 7d 0d 09 69 66 20 7b 5b | 63 61 74 63 68 20 7b 73 |}..if {[|catch {s|
|00003fd0| 74 61 74 75 73 50 72 6f | 6d 70 74 20 22 24 6d 73 |tatusPro|mpt "$ms|
|00003fe0| 67 20 28 24 64 65 66 29 | 3a 20 22 7d 20 61 6e 73 |g ($def)|: "} ans|
|00003ff0| 5d 7d 20 7b 0d 09 09 65 | 72 72 6f 72 20 22 63 61 |]} {...e|rror "ca|
|00004000| 6e 63 65 6c 22 0d 09 7d | 0d 09 69 66 20 7b 21 5b |ncel"..}|..if {![|
|00004010| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 61 |string l|ength $a|
|00004020| 6e 73 5d 7d 20 7b 72 65 | 74 75 72 6e 20 24 64 65 |ns]} {re|turn $de|
|00004030| 66 7d 0d 09 72 65 74 75 | 72 6e 20 24 61 6e 73 0d |f}..retu|rn $ans.|
|00004040| 7d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}..#====|========|
|00004050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004070| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004080| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004090| 3d 3d 3d 3d 0d 70 72 6f | 63 20 71 75 6f 74 65 43 |====.pro|c quoteC|
|000040a0| 68 61 72 20 7b 7d 20 7b | 0d 09 6d 65 73 73 61 67 |har {} {|..messag|
|000040b0| 65 20 22 4c 69 74 65 72 | 61 6c 20 6b 65 79 73 74 |e "Liter|al keyst|
|000040c0| 72 6f 6b 65 20 74 6f 20 | 62 65 20 69 6e 73 65 72 |roke to |be inser|
|000040d0| 74 65 64 3a 22 0d 09 69 | 6e 73 65 72 74 54 65 78 |ted:"..i|nsertTex|
|000040e0| 74 20 5b 67 65 74 43 68 | 61 72 5d 0d 7d 0d 00 00 |t [getCh|ar].}...|
|000040f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004100| 00 00 01 00 00 00 05 0c | 00 00 04 0c 00 00 00 42 |........|.......B|
|00004110| 01 35 02 00 00 00 00 00 | 86 01 09 00 96 01 2c 10 |.5......|......,.|
|00004120| 02 33 30 00 00 00 00 00 | 9e 01 09 00 ae 01 2c 10 |.30.....|......,.|
|00004130| 09 70 72 6f 63 73 2e 74 | 63 6c 02 00 02 00 54 45 |.procs.t|cl....TE|
|00004140| 58 54 41 4c 46 41 01 00 | 00 68 00 40 00 00 00 00 |XTALFA..|.h.@....|
|00004150| 02 00 54 45 58 54 41 4c | 46 41 01 00 00 68 00 40 |..TEXTAL|FA...h.@|
|00004160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004170| 00 00 aa 26 c6 3d 00 00 | 40 6e 00 00 05 4e 4e 6f |...&.=..|@n...NNo|
|00004180| 77 20 53 6f 66 74 77 61 | 72 65 2c 20 49 6e 63 2e |w Softwa|re, Inc.|
|00004190| 00 00 00 2d 04 01 80 01 | 00 00 05 34 2e 30 2e 31 |...-....|...4.0.1|
|000041a0| 20 41 20 63 6f 6d 70 6f | 6e 65 6e 74 20 6f 66 20 | A compo|nent of |
|000041b0| 4e 6f 77 20 55 74 69 6c | 69 74 69 65 73 20 34 2e |Now Util|ities 4.|
|000041c0| 30 00 00 00 45 04 01 80 | 01 00 00 05 34 2e 30 2e |0...E...|....4.0.|
|000041d0| 31 38 34 2e 30 2e 31 20 | 62 79 20 48 2e 59 61 6d |184.0.1 |by H.Yam|
|000041e0| 61 6d 6f 74 6f 20 20 a9 | 39 30 2d 39 32 20 7a 65 |amoto  .|90-92 ze|
|000041f0| 74 61 20 73 6f 66 74 20 | 26 20 4e 6f 77 20 53 6f |ta soft |& Now So|
|00004200| 00 00 03 bc 00 2e 00 00 | 06 f8 00 00 06 f8 0b 61 |........|.......a|
|00004210| 64 64 41 70 70 50 61 74 | 68 00 00 00 07 ad 00 00 |ddAppPat|h.......|
|00004220| 07 ad 0b 61 64 64 55 73 | 65 72 4c 69 6e 65 00 00 |...addUs|erLine..|
|00004230| 0f 64 00 00 0f 64 09 61 | 6c 70 68 61 48 65 6c 70 |.d...d.a|lphaHelp|
|00004240| 00 00 1f d5 00 00 1f d5 | 0d 62 61 63 6b 53 6c 61 |........|.backSla|
|00004250| 73 68 53 75 62 00 00 00 | 11 a6 00 00 11 a6 0d 63 |shSub...|.......c|
|00004260| 44 69 76 69 64 69 6e 67 | 4c 69 6e 65 00 00 2d 0f |Dividing|Line..-.|
|00004270| 00 00 2d 0f 03 63 61 74 | 00 00 13 96 00 00 13 96 |..-..cat|........|
|00004280| 03 63 64 00 00 00 0a 07 | 00 00 0a 07 0d 63 68 65 |.cd.....|.....che|
|00004290| 63 6b 52 75 6e 6e 69 6e | 67 00 00 00 10 71 00 00 |ckRunnin|g....q..|
|000042a0| 10 71 0d 64 69 76 69 64 | 69 6e 67 4c 69 6e 65 00 |.q.divid|ingLine.|
|000042b0| 00 00 36 f6 00 00 36 f6 | 0d 64 75 6d 70 48 65 6c |..6...6.|.dumpHel|
|000042c0| 70 4d 61 72 6b 73 00 00 | 04 50 00 00 04 50 09 65 |pMarks..|.P...P.e|
|000042d0| 64 69 74 46 6c 61 67 00 | 00 00 05 25 00 00 05 25 |ditFlag.|...%...%|
|000042e0| 07 65 64 69 74 56 61 72 | 00 00 28 f8 00 00 28 f8 |.editVar|..(...(.|
|000042f0| 09 65 76 61 6c 75 61 74 | 65 00 00 00 19 a6 00 00 |.evaluat|e.......|
|00004300| 19 a6 0f 66 69 6c 6c 52 | 65 67 69 6f 6e 42 79 50 |...fillR|egionByP|
|00004310| 61 72 00 00 18 c0 00 00 | 18 c0 0d 66 69 6c 6c 54 |ar......|...fillT|
|00004320| 65 78 74 42 79 50 61 72 | 00 00 21 db 00 00 21 db |extByPar|..!...!.|
|00004330| 0b 66 69 6c 74 65 72 4c | 69 6e 65 73 00 00 25 b4 |.filterL|ines..%.|
|00004340| 00 00 25 b4 11 66 69 6c | 74 65 72 50 61 72 61 67 |..%..fil|terParag|
|00004350| 72 61 70 68 73 00 00 00 | 27 5a 00 00 27 5a 0d 66 |raphs...|'Z..'Z.f|
|00004360| 69 6c 74 65 72 52 65 67 | 69 6f 6e 00 00 00 08 8b |ilterReg|ion.....|
|00004370| 00 00 08 8b 0b 67 65 74 | 46 69 6c 65 53 69 67 00 |.....get|FileSig.|
|00004380| 00 00 14 1a 00 00 14 1a | 0b 67 65 74 56 61 72 56 |........|.getVarV|
|00004390| 61 6c 75 65 00 00 31 59 | 00 00 31 59 09 67 6f 74 |alue..1Y|..1Y.got|
|000043a0| 6f 4d 61 74 63 68 00 00 | 01 46 00 00 01 46 0b 68 |oMatch..|.F...F.h|
|000043b0| 69 6c 69 74 65 57 6f 72 | 64 00 00 00 1b 1e 00 00 |iliteWor|d.......|
|000043c0| 1b 1e 0b 6a 6f 69 6e 52 | 65 67 69 6f 6e 00 00 00 |...joinR|egion...|
|000043d0| 15 ee 00 00 15 ee 09 6c | 69 73 74 41 72 72 61 79 |.......l|istArray|
|000043e0| 00 00 36 f7 00 00 36 f7 | 0d 6c 69 73 74 42 69 6e |..6...6.|.listBin|
|000043f0| 64 69 6e 67 73 00 00 00 | 17 58 00 00 17 58 09 6c |dings...|.X...X.l|
|00004400| 69 73 74 50 72 6f 63 00 | 00 00 35 08 00 00 35 08 |istProc.|..5...5.|
|00004410| 09 6e 65 78 74 49 6e 74 | 72 6f 00 00 00 50 00 00 |.nextInt|ro...P..|
|00004420| 00 50 11 6e 6f 72 6d 61 | 6c 4c 65 66 74 42 72 61 |.P.norma|lLeftBra|
|00004430| 63 6b 65 74 00 00 00 7f | 00 00 00 7f 13 6e 6f 72 |cket....|.....nor|
|00004440| 6d 61 6c 52 69 67 68 74 | 42 72 61 63 6b 65 74 00 |malRight|Bracket.|
|00004450| 00 00 2a 36 00 00 2a 36 | 0d 6f 72 64 4c 65 66 74 |..*6..*6|.ordLeft|
|00004460| 42 72 61 63 65 00 00 00 | 2a 80 00 00 2a 80 0d 6f |Brace...|*...*..o|
|00004470| 72 64 52 69 67 68 74 42 | 72 61 63 65 00 00 34 8a |rdRightB|race..4.|
|00004480| 00 00 34 8a 09 70 72 65 | 76 49 6e 74 72 6f 00 00 |..4..pre|vIntro..|
|00004490| 37 e2 00 00 37 e2 0b 70 | 72 69 6e 74 41 72 72 61 |7...7..p|rintArra|
|000044a0| 79 00 00 00 36 f6 00 00 | 36 f6 0f 70 72 6f 63 44 |y...6...|6..procD|
|000044b0| 65 66 69 6e 69 74 69 6f | 6e 00 00 00 2a f3 00 00 |efinitio|n...*...|
|000044c0| 2a f3 09 71 75 6f 74 65 | 57 6f 72 64 00 00 1e 15 |*..quote|Word....|
|000044d0| 00 00 1e 15 0f 72 65 67 | 73 75 62 49 6e 52 65 67 |.....reg|subInReg|
|000044e0| 69 6f 6e 00 00 00 20 77 | 00 00 20 77 0f 72 65 70 |ion... w|.. w.rep|
|000044f0| 6c 61 63 65 49 6e 52 65 | 67 69 6f 6e 00 00 17 ae |laceInRe|gion....|
|00004500| 00 00 17 ae 0f 73 65 6c | 65 63 74 50 61 72 61 67 |.....sel|ectParag|
|00004510| 72 61 70 68 00 00 26 1b | 00 00 26 1b 0f 73 6f 72 |raph..&.|..&..sor|
|00004520| 74 50 61 72 61 67 72 61 | 70 68 73 00 00 00 0e 3e |tParagra|phs....>|
|00004530| 00 00 0e 3e 13 73 70 65 | 6c 6c 63 68 65 63 6b 53 |...>.spe|llcheckS|
|00004540| 65 6c 65 63 74 69 6f 6e | 00 00 0c e2 00 00 0c e2 |election|........|
|00004550| 11 73 70 65 6c 6c 63 68 | 65 63 6b 57 69 6e 64 6f |.spellch|eckWindo|
|00004560| 77 00 00 00 12 60 00 00 | 12 60 0f 74 63 6c 44 69 |w....`..|.`.tclDi|
|00004570| 76 69 64 69 6e 67 4c 69 | 6e 65 00 00 0f ae 00 00 |vidingLi|ne......|
|00004580| 0f ae 07 74 63 6c 48 65 | 6c 70 00 00 11 06 00 00 |...tclHe|lp......|
|00004590| 11 06 0f 74 65 78 44 69 | 76 69 64 69 6e 67 4c 69 |...texDi|vidingLi|
|000045a0| 6e 65 00 00 2b af 00 00 | 2b af 05 74 6f 6d 61 63 |ne..+...|+..tomac|
|000045b0| 00 00 2c 5e 00 00 2c 5e | 07 74 6f 75 6e 69 78 00 |..,^..,^|.tounix.|
|000045c0| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 ec |...H..Mo|naco....|
|000045d0| c1 4c 00 00 00 00 01 03 | c6 16 00 03 22 52 03 f0 |.L......|...."R..|
|000045e0| 00 fc 46 bc 00 00 00 04 | 00 04 00 28 00 03 01 ca |..F.....|...(....|
|000045f0| 02 79 00 28 00 03 01 ca | 02 79 aa a4 7f d7 00 00 |.y.(....|.y......|
|00004600| 2f fd 00 00 2f fd 00 00 | 2e 0f 01 00 00 00 01 00 |/.../...|........|
|00004610| 00 00 05 0c 00 00 04 0c | 00 00 00 42 00 ec c1 4c |........|...B...L|
|00004620| 07 b8 00 00 00 1c 00 3e | 00 00 4d 50 53 52 00 01 |.......>|..MPSR..|
|00004630| 00 0a 03 ef 00 00 00 00 | 00 00 00 00 00 00 03 ed |........|........|
|00004640| ff ff 00 00 03 c0 00 f0 | 95 28 03 74 61 62 00 00 |........|.(.tab..|
|00004650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+